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This  is  the  first  issue  of  the  LCAP2  source  code  description  report. 
Description  of  this  program  still  needs  to  cover  several  aspects  of  the  program 
before  this  report  can  be  considered  as  complete.  These  include  description  of 
(1)  blank  and  labeled  COMMON  block,  (2)  flow  diagrams  for  typical  Batch  and 
Interactive  LCAP2  operators,  and  (3)  methods  for  selective  suppression  of  print¬ 
outs.  Rather  than  wait  until  time  is  available  to  complete  this  task,  this 
report  is  published  in  its  present  state  so  that  it  can  be  referenced  by  LCAP2 
users. 
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1.0  INTRODUCTION 

LCAP2  (Linear  Control  Analysis  program)  is  a  FORTRAN  program  which  provides 
the  control  analyst  with  the  capability  to  numerically  perform  classical  linear 
control  analysis  techniques  such  as  transfer  function  manipulation,  transfer 
function  evaluation,  frequency  response,  root  locus,  inverse  time  response  and 
sampled-data  transforms,  including  multiloop  multirate  digital  systems,  using 
s,  z  and  w  transforms. 

This  program  is  the  successor  to  LCAP,  Ref.  1,  which  is  a  batch  program 
utilizing  card  inputs.  This  original  version  did  not  have  the  flexibility  to 
allow  the  user  to  easily  develop  code  to  automate,  for  example,  a  complete  sta¬ 
bility  analysis  task  beginning  with  the  input  of  raw  data  to  the  generation  of 
the  stability  plots.  This  is  a  very  desirable  feature  in  an  industrial  environ¬ 
ment.  The  batch  version  of  LCAP2  provides  this  flexibility,  since  the  user 
writes  his  own  FORTRAN  program  and  each  LCAP2  operator  is  coded  as  a  FORTRAN 
subroutine.  The  interactive  version  of  LCAP2  is  also  a  very  easy  program  to  use 
since  numerous  prompts  are  employed.  However,  it  is  not  as  flexible  as  the  batch 
version  since  the  user  can  only  input  numeric  and  simple  alphanumeric  data.  The 
interactive  version  is  primarily  intended  to  be  used  for  quick  response  design 
and  analysis  of  systems  which  can  be  easily  modeled. 

2.0  PROGRAMMING  CONSIDERATIONS 

The  original  version  of  LCAP,  which  was  written  in  the  late  1960's,  uti¬ 
lized  an  overlay  structure  since  the  existing  core  memory  of  the  CDC  6400/6600 
at  that  time  was  not  sufficient  to  load  the  entire  LCAP  program.  The  use  of  over¬ 
lays  in  this  original  version  of  the  program  was  of  no  concern  to  the  user  since 
use  of  LCAP  consisted  of  loading  and  executing  a  binary  program. 

To  provide  the  user  with  more  flexibility  in  using  this  program,  a  major 
revision  was  started  in  the  late  1970's.  The  improved  flexibility  was  achieved 
by  allowing  the  user  to  write  his  own  source  code  in  FORTRAN.  Overlays  were  not 
used  for  this  improved  version  of  the  program  for  the  following  reasons'  (1) 
user  does  not  have  to  contend  with  understanding  an  overlay  structure,  (2)  CDC 
176  core  memory  is  larger  than  the  previous  CDC  6400/6600,  and  (3)  an  LCAP2 
library  was  created.  Creation  of  the  LCAP2  library  allows  a  user  job  to  load 
only  those  routines  necessary  to  execute  the  job,  thereby  minimizing  the  core 
memory  required. 


A  major  effort  in  the  revision  of  LCAP  was  the  implemention  of  each  LCAP 
operator  as  a  FORTRAN  subroutine  so  that  the  user  could  write  a  simple  FORTRAN 
CALL  statement  to  specify  an  LCAP  operation.  Coding  of  the  fundamental  control 
analysis  functions  previously  implemented  in  LCAP  were  not  changed.  In  fact, 
some  of  this  code,  which  was  developed  in  the  1960's,  could  be  reworked  to 
improve  its  efficiency.  However,  due  to  limited  resources,  this  was  not  done. 

t 

In  1980  development  of  the  interactive  version  of  LCAP2  was  initiated. 
This  version  of  the  program  was  to  provide  quick  response  support  for  the  Aero¬ 
space  Corporation's  design  and  analysis  capabilities.  Design  of  this  program  was 
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dictated  by  the  hardware  and  software  provided  by  the  CDC  835  computer  using  the 
interactive  INTERCOM  Version  5.0  system  and  the  NOS  Version  1  operating  system. 
In  the  interactive  mode  only  120K  octal  words  are  available  to  the  user.  This  is 
hardly  adequate  for  loading  LCAP2.  The  interactive  version  of  LCAP2  had  to  use 
either  an  overlay  structure  or  employ  a  segment  loader.  The  latter  was  chosen 
since  the  effort  required  to  define  a  tree  structure  for  the  segment  loader  was 
easier  than  defining  an  overlay  structure.  This  difference  in  effort  is  even 
more  apparent  when  modifications  or  additions  are  to  be  made  to  LCAP2  since  the 
segment  loader  directives*  which  define  the  tree  structure*  are  all  on  one 
record  while  overlay  statements  are  intersperced  throughout  the  FORTRAN  source 
code. 


In  the  batch  version  of  LCAP2  where  the  user  writes  his  own  FORTRAN  source 
code*  flexibility  of  this  program  is  provided  by  utilization  of  the  construction 
of  the  FORTRAN  language  and  by  the  FORTRAN  callable  implementation  of  the  LCAP2 
operators.  A  similar  flexibility  for  the  interactive  version  of  LCAP2  would  be 
desirable.  However*  since  FORTRAN  is  a  compiler  language*  rather  than  an  intei — 
pretive  language*  an  interactive  command  language  is  needed  to  interpret  the 
user's  FORTRAN  or  FORTRAN  like  statements.  Since  such  a  command  language  was  not 
available  and  no  resources  were  available  to  develop  one*  a  less  flexible  intei — 
active  program  was  developed.  By  limiting  the  user  inputs  to  numeric  and  simple 
alphanumeric  data  and  by  extensive  use  of  user  prompts*  a  versatile  and  easy  to 
use  program  was  implemented. 

3.0  BATCH  LCAP2 

Use  of  the  batch  version  of  LCAP2  consists  of  the  user  writing  his  own  FOR¬ 
TRAN  program.  This  allows  the  user  to  make  full  use  of  the  FORTRAN  language  in 
developing  an  analysis  program.  The  principle  involved  in  providing  the  user 
with  this  capability  is  simple.  However*  the  actual  operations  involved  are  a 
bit  more  complex.  Description  of  this  process  is  given  in  two  parts <  (1)  job 
structure  and  (2)  job  submittal. 

?,1  jop  STRgcTVRE 

The  basic  operations  of  a  batch  LCAP2  job  are> 

Cl)  Creation  of  FORTRAN  program  -  main  program  and 
subroutines  (optional) 

(2)  Compilation  of  the  source  code  from  (1) 

(3)  Loading  of  routines  from  the  ICAP2  and  system  libraries 

(4)  Execution  of  the  LCAP2  program  from  (2) 


(5)  (Optional)  -  Cataloging  of  data  file  if  one  is 
created  by  LCAP2 


(6)  (Optional)  -  Loading  and  execution  of  the  HARDCPY 
program  to  produce  hardcopy  plo  .  created  by  LCAP2 


To  facilitate  the  development  of  the  FORTRAN  program  by  the  user,  the  CDC 
UPDATE1  program  is  utilized.  An  LCAP2  library  has  been  defined  so  that  the  first 
part  of  the  main  program  (see  Appendix  A),  which  contains  many  lines  of  COMMON 
block  and  EQUIVALENCE  statements,  need  not  be  written  by  the  user.  This  block  of 
code  is  copied  from  the  program  library  and  added  to  the  the  user's  FORTRAN  code 
to  create  the  source  code.  The  input  (card  images)  for  the  UPDATE  program  will 
be  of  the  forms 


*1 DENT  idname 
XINSERT  START. 1 
XDECK  MAIN 
XCALL  LCAP2 

CALL  INITO 
CALL  MINITO 


(initialization  of  LCAP2  parameters) 
(initialization  of  matrix  parameters) 


(user's  FORTRAN  code) 


CALL  LEXIT 
END 


(required  if  hardcopy  plots  are  generated) 


The  x  in  column  1  defines  an  UPDATE  directive.  The  first  directive,  XIDENT 
idname,  specifies  an  identification  name,  idname,  which  can  be  1  through  9  char¬ 
acters  long.  The  second  directive,  XINSERT  START. 1,  defines  the  location  where 
the  input  data  to  follow  is  to  be  inserted.  The  directive,  XCALL  LCAP2,  will 
write  the  code  in  COMDECK  LCAP2  to  the  file  COMPILE.  This  COMDECK  LCAP2  contains 
the  main  program  statment  and  all  of  the  COMMON  block  and  EQUIVALENCE  statements 
required  by  the  main  program.  The  remaining  input  data  are  the  user's  FORTRAN 
code  whieh  will  be  copied  to  the  file  COMPILE  to  complete  the  creation  of  the 
main  program. 

The  job  control  cards  for  setting  up  the  above  operations  are  given  in  the 
next  section. 


Two  forms  for  job  submittal  are  given  below.  The  first  will  be  an  explicit 
one  which  includes  a  complete  list  of  control  cards  required.  The  second  is  a 
shortened  form  which  attaches  and  uses  a  procedure  to  generate  the  control 
cards. 


1  The  UPDATE  program  maintains  and  updates  source  decks  for  libraries  under 
the  SCOPE  2.1,  NOS  1,  and  NOS/BE  1  operating  systems. 


( 


control  cards  for  accounting  ) 


FIIE,TAPE30,BT=I. 

ATTACH(TAPE30,lfn,ID= . ,ST=PF6) 

ATTACH( OLDPL , 8LCAP2PLX, ID=9487 ) 

UPDATE. 

FTN(I=C0MPILE,R=3) 

FILE,TAPE31,BT=I. 

REQUEST  C  TAPE31 , *PF) 

RETURN(OLDPL) 

ATTACH(LCAPLIB,8LCAP2LIBX, ID=9487 ) 
ATTACH(PLOTLIB, 3FTNPL0TLIB) 
LIBRARYCLCAPLIB, PLOTLIB) 

L  DSET ( PRESET =ZERO ) 

LGO. 

CATALOG( TAPE31 , 8f i 1 ename, I D= . , ST=PF6 ) 

HARDCPY , ST= I BMD8 . 

KEOR 


(optional,  use  only  if  old  data 
is  to  be  restored) 

(attach  LCAP2  program  library  ) 

(compile  output  of  UPDATE) 
(optional,  only  if  LCAP2 
operator  STORE  is  to  be  used) 

(attach  LCAP2  library) 

(attach  plot  library) 


(load  and  execute  LCAP2  program) 
(optional,  use  only  if  LCAP2 
STORE  operator  was  used) 

(omit  argument  if  A3  plotter  desired) 
(end  of  record) 


(UPDATE  input  deck  as  described 
in  previous  section) 


KEOR 


(end  of  record) 


( 


control  cards  for  accounting  ) 


FILE,TAPE30,RT=I. 

ATTACH(TAPE30,lfn,ID= . ,ST=PF6) 

ATTACH(X, 8LCAP2CC, ID=9487 ) 

BEGIN, LCAP2CC,X. 

CATAL0GCTAPE31 , 8f ilename, ID= . . ST=PF6 ) 

HARDCPY,ST=IBMD8 . 

*E0R 


(optional,  use  only  if  old  data 
is  to  be  restored) 

(attach  LCAP2  control  card  PROC) 
(execute  PROC) 

(optional,  use  only  if  LCAP2 
STORE  operator  was  used) 

(omit  argument  if  A3  plotter  desired) 
(end  of  record) 


(UPDATE  input  deck  as  described 
in  previous  section) 


XEOR 


(end  of  record) 


In  the  second  form,  the  file  X  will  generate  the  same  control  cards  as  the 

first  form  except  for  the  (1)  FILE,TAPE30, _ _  (2)  ATTACH(TAPE30, _ _  (3)  CAT- 

AL0G(TAPE31 ,  .  .  .  .  ,  and  (A)  HARDCPY.  statements.  It  is  recommended  that  the  sec¬ 
ond  form  be  used  unless  the  user  must  change  some  of  the  control  cards.  An 
example  when  this  is  necessary  is  if  the  print  limit  is  exceeded.  The  statement 

LGO.  should  be  changed  to  LG0(PL= . )  where  the  value  of  PL  is  the  number  of 

print  lines. 


Unlike  the  batch  version  where  the  user  creates  a  main  FORTRAN  program  for 
each  job,  the  interactive  version  is  compiled  once  and  saved  as  a  binary  file  to 
be  used  by  all  users.  Use  of  this  binary  file  by  the  user  is  more  complex  than 
simply  attaching  this  file  and  executing  it  since  some  pre  and  post-processing 
may  be  required. 

If  hardcopy  (high  resolution  electrostatic)  plots  are  to  be  produced,  a 
plot  file  PLOT  must  be  created  and  cataloged  by  Interactive  LCAP2  on  the  CDC  835 
computer.  Since  the  HARDCPY  program,  which  processes  the  PLOT  file,  resides  on 
the  CDC  176  computer,  a  separate  batch  job  must  be  sent  to  this  computer  to  exe¬ 
cute  the  HARDCPY  program.  A  PROC  (procedure)  is  used  to  automate  this 
post-processing  task  so  that  it  will  be  transparent  to  the  user.  PROCs  are  also 
used  to  automate  attaching  and  cataloging  of  LCAP2  data  files.  The  following 
subsections  describe  the  creation  of  the  INTERACTIVE  LCAP2  binary  code  and  pro¬ 
cedures. 
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The  basic  operations  in  creating  the  binary  code  for  Interactive  LCAP2  are< 

(1)  Creation  of  FORTRAN  main  program 

(2)  Compilation  of  the  source  code  for  (1) 

(3)  Segment  loading  of  routines  from  LCAP2  and  system  libraries 
(A)  Cataloging  of  binary  program  created  in  (2)  and  (3) 

Like  the  batch  version  of  the  program,  the  UPDATE  program  is  utilized  to 
facilitate  the  development  of  the  FORTRAN  main  program.  The  same  UPDATE  COMDECK 
LCAP2,  with  minor  modifications,  is  used  to  create  the  first  part  of  the  main 
program.  The  input  (card  images)  for  the  UPDATE  program  is  given  byi 

XI DENT  XYZ 

*/  CHANGE  DEFAULT  BUFFER  LENGTH  FOR  FILES 
KDELETE  LCAP2 . 3, LCAP2 . 4 

+  » TAPE19=200>  TAPE30=46 1, TAP E3 1=46 1,TAPE8 3=200 
+, TAPE84=461 , TAPE85=461 , TAPE86=461 , TAPE87  =461 , TAPE89=461 
X/  DELETE  REFERENCE  TO  COMMON  BLOCKS  MATRIX1  AND  MDET1 
XDELETE  EL  11163. 2, EL 11163. 7 
XINSERT  START. 1 
XDECK  MAIN 
XCALL  LCAP2 
XCALL  ACOM 

CALL  ILCAP2 
END 


In  the  batch  version*  code  for  the  first  part  of  the  main  program  was 
copied  from  the  UPDATE  COMDECK  LCAP2.  For  the  interactive  version  a  similar  pro¬ 
cess  will  be  used  except  that  modifications  must  first  be  made  to  COMDECK  LCAP2. 
Statements  LCAP2.3  and  LCAP2.4  are  to  be  changed  as  indicated.  These  are  contin¬ 
uation  statements  in  the  main  program  declaration  statement  which  declare  files 
to  be  used  by  the  program.  In  the  batch  version,  which  uses  the  CDC  176,  buffer 
space  is  allocated  for  the  declared  files  in  LCM  (large  core  memory).  In  the 
interactive  version  buffer  space  occupies  SCM  (small  core  memory)  instead  of 
LCM.  Since  the  default  length  is  2003  octal  words  per  file  and  small  core  memory 
is  to  be  conserved,  the  buffer  length  for  these  files  was  reduced.  Statements 
EL11163.2  through  EL11163.7,  which  declares  common  blocks  MATRIX1  and  MDET1,  are 
deleted  since  they  are  not  needed  for  Interactive  LCAP2.  The  directives  XINSERT 
START. 1  through  XCALL  LCAP2  perform  the  same  operations  as  described  for  the 
batch  version.  The  XCALL  ACOM  directive  will  declare  common  block  ACOM.  Subrou¬ 
tine  ILCAP2  is  the  executive  routine  for  interactive  LCAP2.  Description  of  this 
routine  is  given  in  Section  6. 
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The  operations  given  in  Section  4.1  are  executed  in  the  interactive  mode  of 
the  CDC  835  by  the  following  PROCi 

. PROC, XXXX, FF=#FILE . 

ATTACH! OLDPL ,8LCAP2PL835, 10=9487) 

UPDATE(I=FF) 

FTN(I=COMPILE,L=OUTPUT) 

MAP(PART) 

ATTACH! 0LDLIB,8LCAP2LIB835,ID=9487) 

ATTACH! PL OTLIB, 3FTNPL0TLIB) 

LIBRARY (OLDLIB, PL OTLIB) 

RFL ( 120000 ) 

SEGLOAD! I=FF) 

LG0. 

REVERT . 

XE0R 


(UPDATE  input  deck  as  described 
in  Section  4.1) 


XEOR  (end  of  record) 


(SEGLOAD  directives 
see  Appendix  B) 

XEOR  (end  of  record) 


(attach  LCAP2  program  library) 

(compile  output  of  UPDATE) 

(attach  LCAP2  library) 

(attach  plot  library) 

(request  field  length) 

(segment  loader) 

(end  of  record) 
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To  execute  tho  PROC  tho  following  SENATOR  and  INTERCOM  commands  can  ba 

usadi 

In  SENATOR, 

(1)  SAVE  TEMP. DATA 

(2)  END 

In  INTERCOM, 

(3)  REQUEST! ABS, *PF) 

(4)  ETL  300  (increase  time  limit) 

(5)  BEGIN, XXXX, TEMP  (execute  PROC,  file  ABS  will  be 

the  output  of  SEGLOAD) 

(6)  REMIND  ABS 

(7)  CATAL0G(ABS,8ABSINTLCAP2, ID=9487 , PW= . ) 


The  file  ABS  created  above  can  be  attached  and  executed  by  the  user  if  no 
pre  and  post-processing  is  required.  Generally  though,  pre  and  post-processing 
will  be  required.  A  PROC  has  been  written  to  perform  these  operations  so  that 
the  whole  process  will  be  transparent  to  the  user.  This  is  described  in  the  fol¬ 
lowing  section. 


(seve  above  PROC  file) 
(return  to  INTERCOM  mode) 


4,3  PROC  .FOR  LOADING  ANP_EXE£UTINO  INTERACTIVE  LCAP2 


The  PROC  INTLCAP2  describing  the  loading  and  execution  of  Interactive  LCAP2 
is  given  below.  The  complexity  of  this  process  is  the  result  of  (1)  hardcopy 
plots  must  be  processed  off-line  in  the  batch  mode  using  the  CDC  176,  (2)  there 
is  no  higher  level  interactive  command  language  available,  and  (3)  the  desire  to 
simplify  user  prompts  as  much  as  possible. 


Block  Diagram  for  PROC  INTLCAP2 
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I 


The  top  part  of  the  block  diagram  describes  the  pre-processing  to  check  if 
the  user  has  attached  the  file  to  be  used  for  restoring  previously  stored  LCAP2 
data.  The  middle  part  of  the  block  diagram  describe  the  use  of  the  Interactive 
LCAP2  program.  The  output  blocks  from  the  dotted  lines  describe  data  that  must 
be  processed  after  the  program  exits  from  ABS. 

In  order  to  automate  the  process  to  perform  the  post-processing  to  catalog 
TAPE31  and  to  process  the  hardcopy  PLOT  file,  the  program  GENPROC  is  first  exe¬ 
cuted.  The  program  will  first  interrogate  a  file  written  by  Interactive  LCAP2  to 
see  if  hardcopy  plots  are  to  be  produced  and  if  TAPE31  is  to  be  cataloged.  The 
user  is  then  prompted  for  information  required  for  completing  this 
post-processing  operation.  A  procedure  PR0C1  is  then  written  for  cataloging 
TAPE31.  Next,  a  batch  file  will  be  created  for  processing  the  hardcopy  plots. 
The  control  cards,  which  contain  accounting  information,  are  automatically 
written  for  the  user  using  system  routines  to  pick  this  information  from  data 
initially  logged  in  by  the  user. 

After  GENPROC  has  been  completed,  the  procedure  PR0C1,  which  was  just  writ¬ 
ten  by  GENPROC,  will  be  executed.  The  batch  file  created  by  GENPROC  will  then  be 
batched  from  the  CDC  835  to  the  CDC  176. 

The  code  for  the  procedure  INTLCAP2  is  given  in  Appendix  C. 

The  code  for  the  program  GENPROC  is  given  in  Appendix  D. 

PiATA  FPRMAI 

To  simplify  program  development,  fixed  size  arrays  are  used  by  LCAP2  to 
represent  polynomials,  transfer  functions  and  matrices.  Polynomials  up  to 
degree  49  and  transfer  functions  up  to  degree  49  over  49  can  be  accommodated. 
The  matrices  used  for  transfer  function  evaluation  by  Cramer's  method  can  be  as 
large  as  30  x  30. 

5,1  PQIYNQWAI  FOgflAI 

Polynomials  in  LCAP2  can  be  represented  in  coefficient  or  in  root  form.  A 
polynomial  in  x  is  represented  in  coefficient  form  by 


\ 

\  i 

/ax 

/ _  i 

i  =  0 
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A  real  array  of  dimension  51  is  used  to  represent  this  data.  The  degree  n  of 
this  polynomial  is  stored  in  the  first  element  of  the  array.  The  coefficients 
a  of  the  polynomial  are  stored  in  ascending  order  starting  with  the  second 
i 

element  of  the  array. 

A  polynomial  in  x  is  represented  in  root  form  by 
n 

u  I  x 

a  x  I  (  -  +  1  ) 

u  -alpha 


where  n  is  the  number  of  roots,  alpha  is  a  complex  root,  u  is  the  number 

i 

of  roots  at  the  origin  and  a  is  the  low  order  non-zero  coefficient.  A  complex 

u 

array  of  dimension  50  is  used  to  represent  this  data.  The  number  of  roots,  n, 
is  stored  in  the  real  part  of  the  first  element  of  the  array.  The  low  order 
non-zero  coefficient,  a  ,  is  stored  in  the  imaginary  part  of  the  first  element 

u 

of  the  array.  The  complex  roots  are  stored  in  successive  elements  starting  with 
the  second  element  of  the  array. 

To  input  coefficient  data  using  the  PLDC  operator,  the  array  POLY  is  used 
to  enter  coefficient  data.  To  input  root  data  using  the  PLDR  operator,  the  com¬ 
plex  array  ROOT  is  used  to  enter  the  root  data.  For  typical  use  these  are  the 
only  polynomial  FORTRAN  arrays  which  the  user  needs  to  be  concerned  with.  All 
other  polynomials  used  will  be  referenced  with  indices  as  arguments  of  the  LCAP2 
operators. 

The  polynomials  which  can  be  referenced  with  indices  as  arguments  of  LCAP2 
operators  are  designated  as  P0LY1,  P0LY2,  P0LY3,  etc.  The  first  five  POLYi's  are 
stored  in  COMMON/SCMBLK/ .  All  additional  POLYi's  where  i  is  larger  than  five  are 
stored  on  file  TAPE84.  The  format  used  to  represent  this  data  is  the  same  as  that 
described  above. 


Transfer  functions  in  LCAP2  can  be  represented  in  coefficient  or  in  root 
fore.  A  transfer  function  in  x  is  represented  in  coefficient  form  by 


/ex 


/  b  x 


A  real  array  of  dimension  102  is  used  to  represent  this  data.  The  degree  n  of 
the  numerator  is  stored  in  the  first  element  of  the  array.  The  coefficients  a 


of  the  numerator  are  stored  in  ascending  order  starting  with  the  second  ele¬ 
ment  of  the  array.  The  degree  m  of  the  denominator  is  stored  in  the  fifty- 
second  element  of  the  array.  The  coefficients  b  of  the  denominator  are  stored 


in  ascending  order  starting  with  the  fifty-third  element  of  the  array. 


A  transfer  function  in  x  is  represented  in  root  form  by 


(  -  +  1  ) 

-alpha 


(  -  +  l  ) 

-beta 


where  m  is  the  number  of  numerator  roots*  alpha  is  a  numerator  root*  u  is  the 

i 

number  of  numerator  roots  at  the  origin*  a  is  the  low  order  non-zero  coeffic- 

u 

ient  of  the  numerator*  m  is  the  number  of  denominator  roots*  beta  is  a  denom- 

3 

inator  root*  v  is  the  number  of  denominator  roots  at  the  origin*  and  b  is  the 

v 

low  order  non-zero  coefficient  of  the  denominator.  A  complex  array  of  dimension 
100  is  used  to  represent  this  data.  The  number  of  numerator  roots*  n*  is  stored 
in  the  real  part  of  the  first  element  of  this  array.  The  low  order  non-zero  co¬ 
efficient,  a  *  of  the  numerator  is  stored  in  the  imaginary  part  of  the  first 
u 

first  element  of  this  array.  The  complex  numerator  roots,  alpha  (i=l,n),  are 

i 

stored  in  successive  elements  starting  with  the  second  element  of  this  array. 
The  number  of  denominator  roots*  m*  is  stored  in  the  real  part  of  the  fifty- 
first  element  of  this  array.  The  low  order  non-zero  coefficient,  b  ,  of  the 

v 

denominator  is  stored  in  the  imaginary  part  of  the  fifty-first  element  of  this 
array.  The  complex  denominator  roots*  beta  (j=l,m),  are  stored  in  successive 

i 

elements  starting  with  the  fifty-second  element  of  this  array. 

To  input  transfer  function  data  using  the  SPLDC*  ZPLDC  or  WPLDC  operators, 
corresponding  to  s*  z  or  w  plane  loading*  the  arrays  POLYN  and  POLYD  are  used  to 
enter  the  coefficient  data  for  the  numerator  and  denominator,  respectively.  To 
input  transfer  function  data  using  the  SPLDR*  ZPLDR  or  WPLDR  operators*  corre¬ 
sponding  to  s*  z  or  w  plane  loading*  the  complex  arrays  ROOTN  and  R00TD  are  used 
to  enter  root  data  for  the  numerator  and  denominator,  respectively.  For  typical 
use,  these  are  the  only  transfer  function  FORTRAN  arrays  which  the  user  will 
need  to  be  concerned  with.  All  other  transfer  functions  used  will  be  referenced 
with  indices  as  arguments  of  the  LCAP2  operators. 

The  s  plane  transfer • functions  which  can  be  referenced  with  indices  as 
arguments  of  LCAP2  operators  are  designated  as  SPTF1,  SPTF2,  SPTF3*  etc.  The 
first  five  SPTFi's  are  stored  in  COMMON/SCMBLK/ .  All  additional  SPTFi's  where  i 
is  larger  than  five  are  stored  on  file  TAPE85.  Corresponding  to  the  s  plane*  z 
and  w  plane  transfer  functions  are  designated  as  ZPTF1,  ZPTF2,  ZPTF3,  etc.  and 
WPTF1,  HPTF2,  WPTF3,  etc.,  respectively.  The  first  five  ZPTFi's  and  first  five 
WPTFi's  are  also  stored  in  C0MM0N/SCMBLK/ .  All  additional  ZPTFi's  are  stored  on 
file  TAPE86  and  all  additional  WPTFi's  are  store  on  file  TAPE87. 


Cramer's  method  for  transfer  function  evaluation  is  given  in  Example  11  of 
Ref.  1  and  in  Example  12  of  Ref.  2.  The  matrix  {J(s)  can  have  polynomial  elements 
up  to  degree  four.  To  input  this  data  into  matrices  {10,  Hi*  {12*  {13  and  M  are 
defined  by 


n(s)  =  M4  s  +  M3  s  +  M2  s  +  M2,  s  +  t^O 


A  real  array  of  dimension  30  x  30  is  used  to  rep-esent  each  of  these  input  matri¬ 
ces.  The  user's  dimension  of  these  matrices  is  specified  by  the  parameter  MXM. 
The  highest  order  of  the  polynomial  elements  is  specified  by  the  parameter  MDEG. 

Although  a  matrix  of  dimension  30  x  30  can  be  entered  with  up  to  fourth 
order  polynomial  elements,  there  is  a  restriction  that  the  determinant  of  this 
matrix^  as  computed  by  the  operators  DTERM  or  DETRM,  must  yield  a  polynomial  of 
degree  less  than  fifty.  This  restriction  is  due  to  the  fixed  size  polynomial 
arrays  used  to  save  this  determinant  polynomial. 


The  original  determinant  operator.  DTERM,  required  the  user  to  manually 
change  column  elements  of  the  matrix  in  order  to  obtain  the  numerator  polynomial 
of  a  transfer  function  via  Cramer's  method.  The  new  version  of  the  determinant 
operator,  DTERM,  automatically  substitutes  the  forcing  vector  into  a  desired 
column  of  the  matrix  M(s) .  This  forcing  vector  is  B(s)  which  can  have  polynomial 
elements  up  to  degree  four.  To  input  this  data  input  vectors  BO,  Bl,  B2,  B3  and 
B4  are  defined  by 


£<s)  =  B4  s 


Bl  s  + 


A  real  array  of  dimension  30  is  used  to  represent  each  of  these  input  vec¬ 
tors.  The  user's  dimension  of  these  input  vectors  is  specfied  by  the  parameter 
MXM.  The  highest  order  of  the  polynomial  elements  is  specified  by  the  parameter 
MDEG.  polynomial. 


Description  of  each  routine  in  the  LCAP2  subroutine  library  is  given  in 
this  section. 


ADDP 


Identification 

SUBROUTINE  ADDP  -  Add  Polynomials  (Coefficient  Form) 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 


Add  coefficients  of  two  polynomials 


Usage 


CALL  ADDP(A,B,C) 

A  input  -  Polynomial  coefficient  array  (LCAP2  format) 
B  input  -  Polynomial  coefficient  array  (LCAP2  format) 
C  output  -  Polynomial  coefficient  array  (LCAP2  format) 


1.  EPAD1  (preset=l .E10)  in  COMMON/HEADDB/  is  used  to  test  for  negligible  coef¬ 
ficients  . 

Method 

Coefficients  of  polynomials  A  and  B  are  added  and  stored  in  polynomial  C.  A  test 
is  then  made  to  see  if  the  highest  order  coefficient  is  smaller  than  all  the  oth¬ 
er  coefficients  by  1/EPAD1 .  If  it  is,  then  it  is  considered  to  be  negligible  and 
is  set  to  zero  and  the  order  of  the  polynomial  reduced  by  one.  This  test  is  then 
repeated . 

Restrictions 

The  degree  of  the  polynomials  must  be  less  than  50. 

Requirements 


COMMON  blocks ■  HEADDB 

LCAP2  routines.  PCHEK, PEQUAL , PZERO 


SUBROUTINE  AUXM1  -  Auxiliary  Subroutine  Used  With  MULE  For  Computing  Datarminant 

Of  A  Complex  Matrix 

CDC  FORTRAN  4 
E.  A.  Lea 

Aerospace  Corporation 
Purpose 

Compute  determinant  of  a  matrix  with  complex  elements.  Hhen  MR00T1  is 
called*  AUXM1  is  used  by  subroutine  MULE  to  compute  the  eigenvalues  of  the 
determinant  polynomial  of  a  matrix.  This  subroutine  is  to  be  used  for  the  batch 
version  only. 

Usage 

CALL  AUXM1  ( RTX *  FRTX ,  SC  ) 

RTX  input  -  Complex  root  iterant  supplied  by  MULE 

FRTX  output  -  Complex  determinant  of  matrix  computed  by  CXMTX1 

SC  -  not  used 


1.  Matrix  data  and  the  computed  complex  determinant*  DET*  are  stored  in 
C0MM0N/MDET1/ .  See  description  for  MR00T1. 

2.  RTMAX  (preset=l . E7 )  in  COMMON/ HEADDB/  is  used  to  determine  when  to  termi¬ 
nate  iterative  procedure  by  MULE.  When  MAXCRTX)  exceeds  RTMAX,  all  eigen¬ 
values  should  have  been  found.  FRTX  is  then  set  to  zero  so  that  MULE  will 
terminate  searching  for  the  eigenvalues.  If  roots  to  be  found  are  very 
large*  RTMAX  should  be  increased  so  that  it  is  at  least  1.E4  larger  than 
the  largest  known  root. 

Mtthffd 

Determinant  is  computed  by  CXMTX1 .  See  description  for  MR00T1 . 


Maximum  dimension  of  matrix  is  30  x  30.  Highest  order  polynomial  element  is 

four. 

Use  for  batch  version  of  LCAP2  only.  If  used  for  interactive  version*  pro¬ 
gram  length  will  be  increased  because  blank  common  will  not  be  shared  by  matrix 
and  plot  data. 


SUBROUTINE  AUXM2  -  Auxiliary  Subroutine  Used  With  MULE  For  Computing  Determinant 

Of  A  Complex  Matrix 

CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 

Ptirpq.ss 

Compute  determinant  of  a  matrix  with  complex  elements.  When  MR00T2  is 
called*  AUXM2  is  used  by  subroutine  MULE  to  compute  the  eigenvalues  of  the 


determinant  polynomial  of  a  matrix.  This  subroutine  is  to  be  used  for  the  intei — 
active  version  only. 


Usage 


CALL  AUXM2( RTX,  FRTX, SC) 


RTX  input  -  Complex  root  iterant  supplied  by  MULE 

FRTX  output  -  Complex  determinant  of  matrix  computed  by  CXMTX1 

SC  -  not  used 


Matrix  data  and  the  computed  complex  determinant/  DET;  are  stored  in  blank 
common  // .  See  description  for  MROOT2. 

RTMAX  (preset=l . E7 )  in  COMMON/HEADDB/  is  used  to  determine  when  to  termi¬ 
nate  iterative  procedure  by  MULE.  When  max(RTX)  exceeds  RTMAX,  all  eigen¬ 
values  should  have  been  found.  FRTX  is  then  set  to  zero  so  that  MULE  will 
terminate  searching  for  the  eigenvalues.  If  roots  to  be  found  are  very 
large,  RTMAX  should  be  increased  so  that  it  is  at  least  1 .  E4  larger  than 
the  largest  known  root. 

AUXM2  is  similar  to  AUXM1  except  that  blank  common  //  is  used  instead  of 
COMMON/ MATRI XI/  and  C0MM0N/MDET1/  . 


Determinant  is  computed  by  CXMTX1 .  See  description  for  MR00T2. 


Maximum  dimension  of  matrix  is  30  x  30.  The  degree  of  the  polynomial  ele¬ 
ments  must  not  be  greater  than  4. 
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Use  for  interactive  version  of  LCAP2  only.  If  used  for  the  batch 
the  user  must  keep  track  of  what  data  is  in  blank  common  if  frequency 
and  determinant  operations  are  intermixed. 

Requirements 


version. 

response 


COMMON  blocks:  HEADDB,// 
LCAP2  routines:  CXMTX1 


SUBROUTINE  AUXP  -  Auxiliary  Subroutine  Used  Hith  MULE  For  Computing  Roots  Of 
A  Polynomial 

CDC  FORTRAN  4 
E.  A.  Laa 

Aerospace  Corporation 
Purpose 

Evaluate  a  polynomial  in  coefficient  form.  When  subroutine  PROOT  is 
called*  AUXP  is  used  by  MULE  to  compute  the  roots  of  a  polynomial. 

Usage 

CALL  AUXP(S,FS,SC) 

S  input  -  Complex  root  iterant  supplied  by  MULE 

FS  output  -  Complex  value  of  polynomial  evaluated  at  S 
SC  -  not  used 


1.  Coefficients  of  the  polynomial  are  in  polynomial  array  POLYC  (LCAP2  format) 
of  COMMON^CMPOLY/ .  (They  were  copied  from  the  arguments  of  subroutine  PROOT 
into  the  array  POLYC.) 

Hathod 

The  polynomial  is  evaluated  in  double  precision. 

Restrictions 

The  degree  of  the  polynomial  must  be  less  than  50. 

RBquiramtntg 


COMMON  blocks*  CMPOLY 
LCAP2  routines)  none 


SUBROUTINE  AUXP1  -  Evaluate  Polynomial  (in  coefficient  form)  Hith  A  Complex 

Argument 

CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Evaluate  a  polynomial*  in  coefficient  form*  for  a  given  complex  value  of 
the  independent  variable. 

Usaoa 

CALL  AUXP1 (POLY » S>  FS) 

POLY  input  -  Polynomial  coefficient  array  (LCAP2  format) 

S  input  -  Complex  value  of  independent  variable 

FS  output  -  Complex  value  of  polynomial  evaluated  at  S 


Hftihod 

The  polynomial  is  evaluated  in  double  precision. 


Rfts-triclipns 

The  degree  of  the  polynomial  must  be  less  than  50. 
Requirements 


COMMON  blocksi  none 
LCAP2  routines)  none 


AVERTl 


Identification 

SUBROUTINE  AUXRT1  -  Evaluate  Polynomial  (in  root  form)  With  A  Complex  Argument 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Evaluate  a  polynomial*  in  root  form*  for  a  given  complex  value  of  the  inde¬ 
pendent  variable. 

Usaas 


CALL  AUXRTKROOT *S*  FS) 

ROOT  input  -  Complex  polynomial  root  array  (LCAP2  format) 
S  input  -  Complex  value  of  the  independent  variable 

FS  output  -  Complex  value  of  polynomial  evaluated  at  S 

Restrictions 

The  degree  of  the  polynomial  must  be  less  than  SO. 

Requirengnts 


COMMON  blocks!  none 
LCAP2  routines!  XTRACT 


AXXHBN 


SUBROUTINE  AXXMRN  -  Evaluate  Function  Used  To  Compute  Numerator  Of  Multirate 

Transform 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 


Evaluate  function  used  to  compute  numerator  of  multirate  transform  by 
Sklansky's  frequency  decomposition  method.  When  subroutine  MRXFM  is  called, 
AXXMRN  is  used  by  subroutine  MULE  to  compute  the  numerator  roots. 

Usage 

CALL  AXXMRN (X,FX, SC) 

X  input  -  Complex  root  iterant  supplied  by  MULE 
FX  output  -  Complex  value  of  function  evaluated  with  X 
SC  -  not  used 


1.  Function  to  be  evaluated  is  defined  in  subroutine  MRXFM  and  placed  in  COM¬ 
MON/  COMAXX/ .  See  description  for  MRXFM. 

Method 

(to  be  documented  later) 


COMMON  blocks)  COMAXX, ITEST, HEADDB,TEMPRT 
LCAP2  routines)  EJKN 
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SUBROUTINE  BILNWZ  -  Bilinear  Transformation  of  Polynomial  Coefficients  From 

H  To  Z  Plane 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporetion 
Purpose 

Transform  coefficients  of  w  plane  polynomial  to  z  plane  polynomial  using 
the  bilinear  transformation. 

tisaaq 

CALL  BILNWZC PIN, POUT) 

PIN  input  -  W  plane  polynomial  coefficient  array  (LCAP2  format) 

POUT  output  -  Z  plane  polynomial  coefficient  array  (LCAP2  format) 

tte-thcd 

Algorithm  by  A.  C.  Davies.  (IEEE  Trans.  On  Circuits  and  Systems,  pp 
792-794,  Nov.  1974) 


Rastrictiqns 

This  method  is  not  very  accurate  for  higher  order  polynomials  since  it  uti¬ 
lizes  only  the  coefficients  of  the  polynomial.  See  description  for  WZXFM  which 
is  more  accurate  since  the  roots  of  the  polynomials  are  used. 

Ragyuramanig 


COMMON  blocksi  none 
LCAP2  routines!  none 


SUBROUTINE  BILNZW  -  Bilinear  Transformation  of  Polynomial  Coafficiants  From 

Z  To  H  Plana 

CDC  FORTRAN  4 
E.  A.  Laa 

Aarospaca  Corporation 
Purpose 

Transform  coefficients  of  z  plane  polynomial  to  w  plane  polynomial  using 
the  bilinear  transformation. 

Usage 

CALL  BILNZHC PIN, POUT) 

PIN  input  -  Z  plane  polynomial  coefficient  array  CLCAP2  format) 

POUT  output  -  N  plane  polynomial  coefficient  array  CLCAP2  format) 

ttsihad 

Algorithm  by  A.  C.  Davies.  (IEEE  Trans.  On  Circuits  and  Systems,  pp 
792-794,  Nov.  1974) 

The  code  for  this  is  routine  is  in  subroutine  BILNHZ. 

Restrictions 

This  method  is  not  very  accurate  for  higher  order  polynomials  since  it  uti¬ 
lizes  only  the  coefficients  of  the  polynomial.  See  description  for  ZWXFM  which 
is  more  accurate  since  the  roots  of  the  polynomials  are  used. 


Requirements 

COMMON  blocks'  none 
LCAP2  routines'  none 


BPRINT1 


Identification 

SUBROUTINE  BPRINT1  -  Print  Out  B  Vector 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Print  out  vectors  BO/  Bl,  B2,  B3,  and  B4  which  are  used  in  evaluating  a 
transfer  function  by  Cramer's  method.  BPRINT1  is  to  be  used  only  for  the  batch 
version  of  LCAP2. 

Usage 


CALL  BPRINT1 


1.  B  vector  data  is  in  C0MM0N/MATRIX1/ .  They  are  described  below 


Pa rameter 


Description 


MATDIM 

MXM 

MDEG 

BO 

Bl 

B2 

B3 

B4 


DIMENSION  of  vectors  BO, Bl , B2, B3, B3, B4 
Dimension  of  vectors  (1-30) 

Highest  degree  of  polynomial  element  (0-4) 

Vector  for  coefficients  of  sxxo 

Vector  for  coefficients  of  sxxl 

Vector  for  coefficients  of  s**2 

Vector  for  coefficients  of  sXX3 

Vector  for  coefficients  of  s*X4 


Mftthffd 

Only  the  non-zero  elements  of  the  vectors  are  printed  out. 


BgAMirgmenis 

COMMON  blocks:  MATRIXl/PRNCTL 
LCAP2  routines:  none 
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SUBROUTINE  BPRINT2  -  Print  Out  B  Vector 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Print  out  vectors  BO,  Bl,  B2,  B3 ,  and  B4  which  are  used  in  evaluating  a 
transfer  function  by  Cramer's  method.  BPRINT2  is  to  be  used  only  for  the  inter¬ 
active  version  of  LCAP2. 

Usage 


CALL  BPRINT2 


1.  B  vector  data  is  in  blank  common  // .  They  are  described  below> 
Parameter  Description 


MATDIM 

MXM 

MDEG 

BO 

Bl 

B2 

B3 

B4 


DIMENSION  of  vectors  80,61,62,63,64 
Dimension  of  vectors  (1-30) 

Highest  degree  of  polynomial  element  (0-4) 

Vector  for  coefficients  of  sXXO 

Vector  for  coefficients  of  sXXl 

Vector  for  coefficients  of  sXX2 

Vector  for  coefficients  of  sXXS 

Vector  for  coefficients  of  sX*4 


Only  the  non-zero  elements  of  the  matrices  are  printed  out. 


Reqvi recent? 


COMMON  blocks <  PRNCTL ,// 
LCAP2  routines:  none 


CHfiCfl 


Identification 

SUBROUTINE  CNGCO  -  Interactive  Input  Routine  To  Change  Transfer  Function 

Coefficients 

COC  FORTRAN  4 
E.  A.  Lee. 

Aerospace  Corporation 

Psitpgsa 

Prompts  user  for  data  to  change  coefficients  of  an  existing  transfer  func¬ 
tion. 

USAflfi 

CALL  CNGCO(INDX) 

INDX  input  -  Index  of  transfer  function  to  be  changed 


1.  Transfer  functions  will  be  stored  in  the  s,  w  or  z  plane  as  determined  by 
the  flag  PLN  in  COMMON/ ACOM/ .  Set  PLN=1HS,  1HM  or  1HZ  for  s,  w  or  z  plane, 
respectively,  before  calling  CNGCO. 

Maihari 

Program  will  print  out  the  transfer  function  coefficients  and  ask  the  user 
if  the  data  is  correct.  If  not,  the  user  can  (1)  change  the  degree  or  (2)  change 
the  coefficients  of  either  or  both  the  numerator  or  the  denominator. 

The  code  for  this  routine  is  in  subroutine  COEFF. 

Restrictions 

The  degree'  of  the  transfer  function  must  be  less  than  50. 

Bgqwir  wonts 

COMMON  blocks t  ACOM, HEADDB, TFT EMP 
LCAP2  routines i  FETTFX, PEQUAL , STRTFX 
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SUBROUTINE  CNGCOP  -  Interactive  Input  Routine  To  Change  Polynomial 

Coefficients 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 

Rureasg 

Prompts  user  for  data  to  change  coefficients  of  an  existing  polynomial. 


Usage 


CALL  CNGCOP(INDX) 

INDX  input  -  Index  of  polynomial  to  be  changed 

Method 

Program  will  print  out  the  polynomial  coefficients  and  ask  the  user  if  the 
data  is  correct.  If  not,  the  user  can  (1)  change  the  degree  or  (2)  change  the 
coefficients. 

The  code  for  this  routine  is  in  subroutine  COEFP. 

Restrictions 

The  degree  of  the  polynomial  must  be  less  than  50. 

Requirements 


COMMON  blocksi  ACOM, HEADDB 
LCAP2  routines!  FETPY, STRPY 


SUBROUTINE  CNGRT  -  Interactive  Input  Routine  To  Change  Transfer  Function 

Roots 

CDC  FORTRAN  4 
E.  A.  Lee. 

Aerospace  Corporation 
Purpose 

Prompts  user  for  data  to  change  roots  of  an  existing  transfer  function. 

Usage 

CALL  CNGRT(INDX) 

INDX  input  -  Index  of  transfer  function  to  be  changed 


1.  Transfer  functions  will  be  stored  in  the  s,  w  or  z  plane  as  determined  by 
the  flag  PLN  in  COMMON/ACOM/ .  Set  PLN=1HS,  1HW  or  1HZ  for  s,  w  or  z  plane, 
respectively,  before  calling  CNGRT. 

Method 

Program  will  print  out  the  transfer  function  roots  and  ask  the  user  if  the 
data  is  correct.  If  not,  the  user  can  Cl)  add  root  values,  (2)  delete  root 
values,  (3)  change  root  values  or  (4)  change  the  gain  value. 

The  code  for  this  routine  is  in  subroutine  IROOT. 

Restrigtions 

The  degree  of  the  transfer  function  must  be  less  than  50. 

Requirements 

COMMON  blocks*  ACOM, HEADDB , TFTEMP , // 

LCAP2  routines*  FCNW1 , FCNW2, FETTFX, PR00T, PSYNTH, RTCMNT, RTEQU, 
STRTFX.XTRACT 


CNORTP 


SUBROUTINE  CNGRTP  -  Interactive  Input  Routine  To  Change  Polynomial 

Root 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 


Purpose 


Prompts  user  for  data  to  change  roots  of  an  existing  polynomial. 


Usings 


CALL  CNGCOP(INDX) 


INDX  input  -  Index  of  polynomial  to  be  changed 


Method 

Program  will  print  out  the  polynomial  roots  and  ask  the  user  if  the  data  is 
correct.  If  not,  the  user  can  Cl)  add  root  values,  (2)  delete  root  values,  C3) 
change  root  values  or  (4)  change  the  gain  value. 

The  code  for  this  routine  is  in  subroutine  IROOTP 


The  degree  of  the  polynomial  must  be  less  than  50. 


COMMON  blocks>  ACOM,HEADDB,TFTEMP,// 

LCAP2  routines)  FETPY , PR00T , PSYNTH, RTCMNT , STRPY 


>  A  .v/.V. 


tW! 


COEFF 


SUBROUTINE  COEFF  -  Interactive  Input  Routine  For  Transfer  Function  Data  In 

Coefficient  Form 

CDC  FORTRAN  4 

F.  P.  Fernandez  and  E.  A.  Lee. 

Aerospace  Corporation 

Purpose 

Prompts  user  for  data  to  load  in  transfer  function  coefficients. 

Usage 

CALL  COEFF(INDX) 

INDX  output  -  Index  used  to  store  transfer  function  which  the 
user  entered  in  response  to  a  prompt 


1.  Transfer  functions  will  be  stored  in  the  s,  w  or  z  plane  as  determined  by 
the  flag  PLN  in  COMMON/ACOM/ .  Set  PLN=1HS,  1HW  or  1HZ  for  s,  w  or  z  plane, 
respectively,  before  calling  COEFF. 

Program  will  prompt  the  user  for  transfer  function  coefficients.  After 
data  entry,  the  program  will  print  out  the  transfer  function  and  ask  the  user  if 
the  data  is  correct.  If  not,  the  user  can  Cl)  change  the  degree  or  (2)  change  the 
coefficients  of  either  or  both  the  numerator  or  the  denominator.  The  program 
then  prompts  the  user  for  the  number  where  this  transfer  function  is  to  be 
stored.  This  number  is  returned  to  the  calling  program  to  be  used,  if  necessary, 
for  further  processing  of  LCAP2  operators. 


The  degree  of  the  transfer  function  must  be  less  than  50. 


COMMON  blocks i  ACOM, HEADDB , TFTEMP 

LCAP2  routines i  FCNH1 , FETTFX, PEQUAL , STRTFX 


I] 


SUBROUTINE  COEFP  -  Interactive  Input  Routine  For  Polynomial  Data  In 

Coefficient  Form 

CDC  FORTRAN  4 

F.  P.  Fernandez  and  E.  A.  Lee 
Aerospace  Corporation 

Purpose 

Prompts  user  for  data  to  load  in  polynomial  coefficients. 

Usage 

CALL  COEFPCINDX) 

INDX  output  ~  Index  used  to  store  polynomial  which  the  user 
entered  in  response  to  a  prompt 


Method 

Program  will  prompt  the  user  for  polynomial  coefficients.  After  data 
entry,  the  program  will  print  out  the  polynomial  and  ask  the  user  if  the  data  is 
correct.  If  not,  the  user  can  (1)  change  the  degree  or  C2)  change  the  coeffi¬ 
cients.  The  program  then  prompts  the  user  for  the  number  where  this  polynomial 
is  to  be  stored.  This  number  is  returned  to  the  calling  program  to  be  used,  if 
necessary,  for  further  processing  of  LCAP2  operators. 


The  degree  of  the  polynomial  must  be  less  than  50. 


COMMON  blocks >  ACOM, HEADDB 
LCAP2  routines i  FETPY, STRPY 


QEfiBN 


Identification 

SUBROUTINE  CPPRN  -  CP  (Central  Processing)  Time  Print  Out 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Print  out  CP  time  used  from  beginning  of  job.  This  allows  the  user  to 
determine  how  much  computing  time  is  required  for  various  operations. 

Usage 


CALL  CPPRN 

1.  Flag  INTFLG  (preset=0)  in  COMMON/ I NTCOM/,  if  ,NE.0>  will  suppress  the 
printout.  The  printout  is  intended  to  be  used  for  the  batch  version  of 
LCAP2. 

Method 

Calls  system  routine  SECOND(T)  and  prints  out  T. 

Requirements 

COMMON  blocks*  INTCOM 
LCAP2  routines:  none 


CPYPS 


Identification 

SUBROUTINE  CPYPS  -  LCAP2  Operator,  Copy  Polynomials  Into  S  Plane  Transfer 

Function 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Copy  polynomials  into  an  s  plane  transfer  functions  using  LCAP2  indices. 
For  transfer  function  evaluation  by  Cramer's  method,  this  operator  is  used  to 
define  a  transfer  function  after  two  polynomial  determinants  have  been  computed 
with  the  use  of  the  DETRM  operator. 

Usage 


CALL  CPYPSCI, J,K) 

I  input  -  Index  of  s  plane  transfer  function  where  results  are  to  be  stored 

J  input  -  Index  of  poly,  to  be  used  to  define  numerator  of  SPTFi,  i=I 

K  input  -  Index  of  poly,  to  be  used  to  define  denominator  of  SPTFi,  i=I 


Copies  coefficients  of  polynomials  into  a  transfer  function.  If  the  roots 
of  the  polynomials  are  also  defined,  these  roots  are  also  copied  into  the  trans¬ 
fer  function. 


Restrictions 

The  degree  of  the  polynomials  must  be  less  than  50. 

R-squi  regents 

COMMON  blocks  I  PRNFLG,TFTEMP 

LCAP2  routines .  ENDL INE, FETPY, OPPRN, PEQUAL , PYPRN1 , RTEQU, STRTFX, TFPRN4 


SUBROUTINE  CPYPH  -  LCAP2  Operator,  Copy  Polynomials  Into  H  Plana  Transfer 

Function 

CDC  FORTRAN  4 
E.  A.  Lea 

Aerospace  Corporation 

This  operator  is  similar  to  CPYPS  except  that  it  is  for  a  w  plane  transfer 
function  instead  of  a  s  plane  transfer  function. 

The  code  for  this  routine  is  in  subroutine  CPYPS. 


CE.YP.Z 


Identification 

SUBROUTINE  CPYPZ  -  LCAP2  Operator,  Copy  Polynomials  Into  Z  Plane  Transfer 

Function 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 

This  operator  is  similar  to  CPYPS  except  that  it  is  for  a  z  plane  transfer 
function  instead  of  a  s  plane  transfer  function. 


The  code  for  this  routine  is  in  subroutine  CPYPS. 


C.PYSP 


LteaiififiiAifln 

SUBROUTINE  CPYSP  -  LCAP2  Operator,  Copy  S  Plane  Transfer  Function  Into  Polynomials 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Copy  s  plane  transfer  function  into  polynomials  using  LCAP2  indices. 

Usage 

CALL  CPYSPC I , J ,K) 

I  input  -  Index  of  s  plane  transfer  function  to  be  used  in  copying 

J  input  -  Index  of  polynomial  equated  with  the  numerator  of  SPTFi,  i=I 

K  input  -  Index  of  polynomial  equated  with  the  denominator  of  SPTFi,  i=I 


Method 

Copies  coefficients  of  transfer  function  into  polynomials.  If  the  roots  of 
the  transfer  function  are  available,  the  roots  are  also  stored  in  the  polynomi¬ 
als. 


Restrictions 

The  degree  of  the  polynomials  must  be  less  than  50. 
Requirements 


COMMON  blocks.  PRNFLG, TFTEMP 

LCAP2  routines .  ENDLINE, FETTFX, OPPRN, PEQUAL , PYPRN4, RTEQU, STRTFX, TFPRN1 


SUBROUTINE  CPYHP  -  LCAP2  Operator,  Copy  W  Plane  Transfer  Function  Into  Polynomials 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 

This  operator  is  similar  to  CPYSP  except  that  it  is  for  the  w  plane  trans¬ 
fer  function  instead  of  the  s  plane  transfer  function. 

The  code  for  the  routine  is  in  subroutine  CPYSP. 


CPYZP 


Identification 

SUBROUTINE  CPYZP  -  LCAP2  Operator,  Copy  Z  Plane  Transfer  Function  Into  Polynomials 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 

This  operator  is  similar  to  CPYSP  except  that  it  is  for  the  z  plane  trans¬ 
fer  function  instead  of  the  s  plane  transfer  function. 


The  code  for  this  routine  is  in  subroutine  CPYSP. 


SUBROUTINE  CRELIM  -  Common  Root  Elimination 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Eliminate  common  roots  between  two  complex  root  arrays  in  LCAP2  format. 


Usage 


CALL  CRELIMCROOTN, ROOTD,  XROOTN, XROOTD, I  (3COM, IQR, IQZ, IPCOM, IPR, IPZ,C0MR0T) 


ROOTN 

input 

- 

Complex 

polynomial 

root 

ROOTD 

input 

- 

Complex 

polynomial 

root 

XROOTN 

output 

- 

Complex 

polynomial 

root 

XROOTD 

output 

- 

Complex 

polynomial 

root 

IQCOM 

output 

- 

Number 

of  complex 

roots 

IQR 

output 

- 

Number 

of  non-zero 

real 

IQZ 

output 

- 

Number 

of  roots  at 

zero 

IPCOM 

output 

- 

Number 

of  complex 

roots 

IPR 

output 

- 

Number 

of  non-zero 

real 

IPZ 

output 

- 

Number 

of  roots  at 

zero 

COMROT 

output 

- 

Complex 

polynomial 

root 

array  (LCAP2  format)  for  numerator 

array  CLCAP2  format)  for  denominator 

array  CLCAP2  format)  for  numerator 

array  (LCAP2  format)  for  denominator 

of  numerator 

roots  for  numerator 

for  numerator 

for  denominator 

roots  for  denominator 

for  denominator 

array  CLCAP2  format)  for  the  common  roots 


1.  CRELIM  tolerance  parameters,  ECRE1  (preset=2 . E-4)  and  ECRE2  lpreset=l . E-8) 
are  in  COMMON/HEADDB/ . 

2.  Diagnostic  flag,  PRN1,  (preset=0)  in  COMMON/HEADDB/,  if  .  NE.&>  will  pro¬ 
vide  additional  printout  for  check  out. 

Malbfid 

See  description  of  SELCR. 

Rgs.trictiftas 

The  degree  of  the  polynomial  must  be  less  than  50. 

Requirements 


COMMON  blocks >  HEADDB 
LCAP2  routines i  RCLAS,RTPRN0 


CXHTX1 


SUBROUTINE  CXMTX1  -  Determinant  Of  A  Complex  Matrix 
CDC  COMPASS  Assembly  Language 
H.  J.  Hertz 
Aerospace  Corporation 


Purpose 


Compute  determinant  of  a  matrix  with  complex  elements. 


Usage 


CALL  CXMTXH  A,  NVAR, DET , NADIM) 


A  input 

NVAR  input 
DET  output 

NADIM  input 

Method 


Complex  matrix  (DIMENSION(NADIM,i),  where  i  .GE.  NVAR) 
Rank  of  the  matrix 

Complex  value  of  determinant  of  the  matrix 
Row  dimension  of  A 


This  subroutine  is  written  in  CDC  COMPASS  assembly  language  for  faster  exe 
cution  time.  A  FORTRAN  version  of  this  routine  is  also  available. 


COMMON  blocks i  none 
LCAP2  routines!  none 


DA1PRM 


Identification 

SUBROUTINE  DAYPRN  -  Date  Print  Out 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Print  out  date  of  execution. 


Usage 


CALL  DAYPRN 
Method 

Calls  system  routine  DATE(A)  and  prints  out  the  date. 
Requirements 

COMMON  blocks <  none 
LCAP2  routines i  none 


SUBROUTINE  DETRM  -  LCAP2  Operator,  Determinant  Of  Matrix  Hith  Polynomial  Elements 

(Old  Version) 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 


Compute  polynomial  determinant  of  a  matrix  with  polynomial  elements 
defined  by: 

4  3  2  1 

M(s)  =  M4  s  +  M3  s  +  M2  s  +  Ml  s  +  MO 

The  determinant  is  found  by  solving  for  its  roots  directly  and  then  com¬ 
puting  its  coefficients. 

This  subroutine  is  for  the  batch  version  of  LCAP2.  For  interactive  LCAP2, 
see  subroutine  IDETRM. 

Usage 

CALL  DETRMCI) 

I  input  -  Index  where  polynomial  determinant  is  to  be  stored 

1.  Before  DETRM  is  used,  the  matrix  parameters  must  first  be  initialized  by 
calling  MINITO  (only  once). 

2.  Matrix  parameters  are  in  C0MM0N/MATRIX1/ .  They  are  to  be  set  before  MR00T1 
is  called.  These  parameters  are  defined  below: 

Parameters  Preset  Description 

MXM  1  Dimension  of  matrices  (1-30) 

MDEG  0  Highest  degree  of  polynomial  element  (0-4) 

MO  0  Matrix  for  coefficients  of  sXXO 

Ml  0  Matrix  for  coefficients  of  sXXl 

M2  0  Matrix  for  coefficients  of  sXX2 

M3  0  Matrix  for  coefficients  of  sXX3 

M4  0  Matrix  for  coefficients  of  sXX4 

3.  Hhen  this  operator  is  used  for  transfer  function  evaluation  via  Cramer's 
method,  the  user  must  manually  change  the  appropriate  elements  of  the 
matrix  to  account  for  the  forcing  vector.  An  improved  version  of  this  opei — 
ator,  DTERM,  will  perform  the  substitution  of  the  forcing  vector  automat- 


ically.  Use  DTERM  instead  of  DETRM.  The  old  version  of  the  determinant 
operator  will  be  maintained  for  compatability  with  old  deck  setups. 

Method 


See  description  for  MR00T1. 

Restrictions 

The  dimension  of  the  matrix  must  not  be  greater  than  30  x  30.  The  polynomi¬ 
al  elements  of  the  matrix  must  be  of  degree  4  or  less.  The  degree  of  the  computed 
polynomial  determinant  must  be  less  than  50. 

Regui rements 


COMMON  blocks:  INTCOM, PRNCTL , TFTEMP 

LCAP2  routines:  HOL LI , MPRINT1 , MR00T1 , OPMESG, PPRN1 , RTPRN2, STRPY 


SUBROUTINE  DTERM  -  LCAP2  Operator-,  Determinant  Of  Matrix  With  Polynomial  Elements 

(New  Version) 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Trensfer  function  evaluation  by  Cramer's  method  for  the  system  described  by 

M(s)  *(s)  =  £(s)u 

4  3  2  1 

where  H(s)  =  *  +  Mi  s  +  Ml  s  +  Ml  s  +  {10 

4  3  2  1 

fl(s)  =  M  s  +  M®  +  12  s  +  11  s  +  Ifi 

MO.  Ml .  M2.  M3.  M4  are  square  matrices  of  dimension  MXM 

BO.  B1 .  B2.  B3.  B4  are  vectors  of  dimension  MXM 

X(s)  =  State  vector  of  dimension  MXM 
u  =  Scalar  input 

is  given  by 

x  (s)  det  {J  (s) 

3  i 


u  det  M(s) 


where  (J  (s)  is  equal  to  {J(s)  with  column  3  replaced  by  l(s). 

3 

The  operator  DTERM  will  compute  the  determinant  of  M  (s).  Substitution  of 

3 

l(s)  into  column  j  will  be  done  automatically  by  the  program. 

The  determinant  is  found  by  solving  for  its  roots  directly  and  then  com¬ 
puting  its  coefficients. 

This  subroutine  is  for  the  batch  version  of  LCAP2.  For  interactive  LCAP2, 
see  subroutine  IDTERM. 


Usaag 


CALL  DTERM(I, J) 

I  input  -  Index  where  polynomiel  determinant  is  to  be  stored 
J  input  -  Column  where  £(s)  is  to  be  substituted  into 

(J=0  interpreted  to  mean  no  column  substitution) 

1.  Before  DTERM  is  used*  the  matrix  parameters  must  first  be  initialized  by 
calling  MINITO  (only  once). 

2.  Matrix  parameters  are  in  C0MM0N/MATRIX1/ .  They  are  to  be  set  before  MR00T1 
is  called.  These  parameters  are  defined  belowi 


Parameters 

Preset 

Description 

MXM 

1 

Dimension  of  matrices  and  vectors  (1-30) 

MDEG 

0 

Highest  degree  of  polynomial  element  (0-4) 

MO 

0 

Matrix 

for 

coefficients 

of 

sXXO 

Ml 

0 

Matrix 

for 

coefficients 

of 

SXX1 

M2 

0 

Matrix 

for 

coefficients 

of 

SXX2 

M3 

0 

Matrix 

for 

coefficients 

of 

sXX3 

M4 

0 

Matrix 

for 

coefficients 

of 

sxx4 

BO 

0 

Vector 

for 

coefficients 

of 

sxxo 

B1 

0 

Vector 

for 

coefficients 

of 

sxxl 

B2 

0 

Vector 

for 

coefficients 

of 

sxx2 

B3 

0 

Vector 

for 

coefficients 

of 

sXX3 

B4 

0 

Vector 

for 

coefficients 

of 

sXX4 

Method 

If  j  is  not  zero*  j)(s)  is  substituted  into  column  j  of  {](s).  Subroutine 
MR00T1  is  then  called  to  compute  the  determinant.  Column  j  of  U(s)  is  then 
restored  to  its  original  value. 


The  dimension  of  the  matrix  must  not  be  greater  than  30  x  30.  The  polynomi¬ 
al  elements  of  the  matrix  must  be  of  degree  4  or  less.  The  degree  of  the  computed 
polynomial  determinant  must  be  less  than  50. 


COMMON  blocksi  INTCOM, MATRIX1 * PRNCTL , TFTEMP 

LCAP2  routines :  BPRINT1 , HOLLI , L EXIT, MPRINT1 , MR00T1 , OPMESG, PPRN1 , RTPRN2* 
STRPY 


SUBROUTINE  DOTLINE  -  Print  Out  One  Row  Of  Dots 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Print  out  one  row  of  dots  to  be  used  for  delimiting  operations. 


Usaas 


CALL  DOTLINE 

1.  Flag  PRNFLG3  (preset=l)  in  COMMQN/PRNCTL/ ,  if  . EQ.O,  will  suppress  the 
printout . 

Requirements 


COMMON  blocks:  PRNCTL 
LCAP2  routines:  none 


COMPLEX  FUNCTION  EJKN  -  COMPUTE  e**C j(2pi*k/n) ) 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  exponent  of  j(2.#pi*k/n)  used  in  evaluating  frequency  decompos¬ 
ition  operations.  Used  by  subroutine  AXXMRN  when  subroutine  MRXFM  is  called  to 
compute  the  multirate  z  transform  by  Sklansky's  frequency  decomposition  method. 

Usage 


CALL  EJKN(k) 

1.  All  other  arguments  and  results  are  in  COMMON/COMAXX/.  See  description  for 
MRXFM. 

Method 

For  improved  computational  efficiency,  a  table  look  up  in  COMMON/COMAXX/  is 
used  if  k  is  .LE.  10.  This  table  is  created  in  subroutine  MRXFM  by  calling  EJKNI 
for  k=l,..,n.  If  k  is  larger  than  10,  the  complex  exponent  is  comp"ted  for  each 
call  instead  of  using  a  table  look  up.  The  table  look  up  can  be  extended  past  10 
elements  if  user  needs  warrant  it. 

Regui rements 


COMMON  blocks:  COMAXX 
LCAP2  routines:  none 


COMPLEX  FUNCTION  EJKNI  -  Initialization  of  Complex  Function  EJKN 
CDC  FORTRAN  A 
E.  A.  Lea 

Aerospace  Corporation 
Purpose 

Initialization  of  complex  function  EJKN(k).  Look  up  table  is  created  and 
stored  in  COMMON/COMAXX/ .  See  description  for  EJKN. 

Usage 


CALL  EJKNI(k) 

1.  Argument  k  is  defined  in  description  of  EJKN. 
Method 

See  description  for  EJKN. 

Code  for  this  routine  is  in  subroutine  EJKN. 
Requirements 


COMMON  blocks.  COMAXX 
LCAP2  routines,  none 


EL  PL  PT 1 


SUBROUTINE  ELPIOT1  -  Plot  Routines  Utilizing  Aerospace  Routines 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Plot  routine  for  producing  higher  resolution  hardcopy  plots. 

Usage 


CALL  ELPLOTHXVAR,  YVAR,CVAR,XTITLE,  YTITLE,  ATITLE,  INFLG) 


XVAR  input  -  array  of  the  independent  variable 

YVAR  input  -  array  of  the  dependent  variable 

CVAR  input  -  array  of  input  quantities 

CVAR(l)  -  plot  segment 

0  =  complete  plot  1  =  first  call  of  a 

continuation  plot 

2  *  continuation  3  =  final  call  of  a 

continuation  plot 

CVAR(2)  -  Number  of  values  in  each  array 
CVAR(3)  -  Starting  point  for  x  axis  of  plot 
CVAR(4)  -  Max.  acceptable  value  along  the  x  axis 

If  CVAR(3)SCVAR(4),  auto. scaling  for  x  axis 
CVAR(5)  -  Units  per  inch  along  the  x  axis 
CVAR(6)  -  Constant  added  to  all  x  values  before  plotting 
CVAR(7)  -  Constant  all  x  values  are  multiplied  by  before  plotting 
CVAR(8)  -  Start  point  ■for  y  axis  of  plot  x  axis 
CVAR(9)  -  Units  per  inch  along  the  y  axis 

If  =0 ,  auto,  scaling  for  10  inch  y  axis 
CVAR(10)  -  Constant  added  to  all  y  values  before  plotting 
CVAR(ll)  -  Constant  all  y  values  are  multiplied  by  before  plotting 
CVAR(12)  -  Max.  x  distance  (.01  inch)  without  lifting  pen 
CVAR(13)  -  Max.  y  distance  (.01  inch)  without  lifting  pen 
CVAR(14)  -  Intensity  of  line  (2  to  28),  nominal  is  16 
CVAR(15)  -  Intensity  of  zero  line 

CVAR(16)  -  . EQ .  0  for  linear  plot,  .NE.O  for  semi-log  plot 
CVAR(17)  -  Number  of  cycles  for  semi-log  plots 

0  =  automatic,  2  =  two  cycles,  3  -  three  cycles 
CVAR(18)  -  Grid  pattern  for  835  film  plotter 
=4HNIC0  for  Nichols  plot  grid 
=3HSQR  for  10x10  grid 
=6HZP0LAR  for  polar  plot 

CVAR(19)  -  Number  of  additional  lines  of  annotation,  (0-3) 

CVAR(20)  -  y  position  for  additional  annotation 


CVARC21 )  - 


CVARC22) 
CVARC 23 ) 


=0  for  point  plot 

=1  for  x,  with  numeric  labeling,  =-l  without 
=2  for  o,  with  numeric  labeling,  =-2  without 
Numeric  for  labeling  when  CVAR(21)  . GT .  0 
=0  for  line  plot 
=1  for  step  plot 


Method 


This  subroutine  utilizes  the  Aerospace  plot  routines.  This  subroutine  was 
written  before  the  availability  of  the  portable  graphics  routines  such  as  CAL- 
COMP  and  GCS. 


COMMON  blocks!  INTCOM 

LCAP2  routines:  CPPRN, HOLLI , OSCALE 


ENDLINE 


Identification 

SUBROUTINE  ENDLINE  -  Print  Out  One  Row  Of  Dashes 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Print  out  one  row  of  dashes  and  the  CP  (Central  Processing)  time.  This 
enables  the  user  to  determine  the  computer  time  required  for  various  operations. 

Usage 


CALL  ENDLINE 

1.  Flag  PRNFLG3  (preset=l)  in  COMMON/PRNCTL/ ,  if  .EQ.O,  will  suppress  the 
printout . 

2.  Interactive  flag  INTFLG  (preset=0)  in  COMMON/INTCOM/ ,  if  .NE.O,  will  sup¬ 
press  print  out  of  CP  time.  (INTFLG  set  to  1  for  interactive  LCAP2) 

Requirements 

COMMON  blocksi  INTCOM,PRNCTL 
LCAP2  routines:  none 


51 


pv\-; 


EVLRRT 


Identification 

COMPLEX  FUNCTION  EVLRRT  -  Evaluate  Transfer  Funtion  In  Root  Form  For  A 

Given  Complex  Value 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Evaluate  transfer  function  in  root  form  for  a  given  complex  value. 


EVLRRT(R00T,S) 

ROOT  input  -  Complex  transfer  function  root  array  CLCAP2  format) 

S  input  -  Complex  value  of  the  independent  variable 

EVLRRT  output  -  Complex  value  of  transfer  function  evaluated  at  S 

Method 

The  code  for  the  routine  is  in  subroutine  EVLRT. 

Restrictions 

The  degree  of  the  transfer  function  must  be  less  than  50. 

Rgqvirgmgnta 

COMMON  blockst  none 
LCAP2  routines!  XTRACT 


TTTT 


EVLRT 


Identification 

COMPLEX  FUNCTION  EVLRT  -  Evaluate  Polynomial  In  Root  Form  For  A 

Given  Complex  Value 

CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Evaluate  polynomial  in  root  form  for  a  given  complex  value. 


Usage 

EVLRT(ROOT,S) 

ROOT  input  -  Complex  polynomial  root  array  (LCAP2  format) 
S  input  -  Complex  value  of  the  independent  variable 
EVLRT  output  -  Complex  value  of  polynomial  evaluated  at  S 

Restrictions 

The  degree  of  the  polynomial  must  be  less  than  50. 

Rgfluir Aments 

COMMON  blocksi  none 
LCAP2  routines!  XTRACT 
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EVMRRT 


COMPLEX  FUNCTION  EVMRRT  - 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 


Evaluate  Transfer  Function  Using  Frequency 
Decomposition 


Purpose 

Evaluate  multirate  transfer  function  in  root  form  for  a  given  complex 
value.  The  multirate  transfer  function  is  defined  by  Sklansky's  frequency  decom¬ 
position  method. 


Usage 


EVMRRTCIPLANE,TFR,NRATIO,XN) 


IPLANE  input  -  =1  for  z  plane,  =-l  for  w  plane 

TFR  input  -  Transfer  function  root  array  (LCAP2  format)  at  the  faster 

sampling  rate 

NRATIO  input  -  Ratio  of  output/input  sampling  periods 
XN  input  -  Complex  frequency  at  the  faster  input  sampler  used 

to  evaluate  the  frequency  response 

EVMRRT  output  -  Complex  value  of  transfer  function  response  evaluated  at  XN 

Method 

Subroutine  EVLRRT  is  used  to  evaluate  the  transfer  functions  in  Sklansky's 
frequency  decomposition  method. 


The  degree  of  the  transfer  function  must  be  less  than  50. 


COMMON  blocks <  none 
LCAP2  routines)  EVLRRT 


EMtXH 


Identification 

COMPLEX  FUNCTION  FAUXW  -  Evaluate  Response  Of  User-Supplied  W  Plane  Transfer 

Function 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Evaluate  response  of  usei — supplied  w  plane  transfer  function.  The  w  plane 
function  is  defined  by  a  user-supplied  subroutine. 

Usage 


FAUXW(CFUNC) 

CFUNC  input  -  Name  of  user-supplied  subroutine.  Must  be  declared  with 
an  EXTERNAL  statement  in  the  calling  program. 

FAUXH  output  -  Complex  value  of  the  response 

1.  Independent  w  plane  frequency  used  in  evaluation  of  the  response  is  com¬ 
puted  by  the  program  using  real  frequency  U  in  COMMQN/FRQBLK/  and  sampling 
period  SAMPT  in  COMMON/HEADDB/ . 

RgqMinsnrents 

COMMON  blocks.  FRQBLK, HEADDB 
LCAP2  routines,  none 


COMPLEX  FUNCTION  FAUXHM  -  Evaluate  Multirate  Response  Of  User-Supplied 

H  Plane  Transfer  Function 

CDC  FORTRAN  A 
E.  A.  Lea 

Aerospace  Corporation 
Purpose 

Evaluate  multirate  response*  by  Sklansky's  frequency  decomposition  method* 
of  user-supplied  w  plane  transfer  function.  The  w  plane  transfer  function  is 
defined  by  a  user-supplied  subroutine. 

llSUUI 

FAUXHMCCFUNC,M,T) 

CFUNC  input  -  Name  of  user-supplied  subroutine.  Must  be  declared  with 
an  EXTERNAL  statement  in  the  calling  program. 

M  input  -  Ratio  of  output/input  sampling  periods 

T  input  -  Sampling  period  of  slower  output  sampler 

FAUXHM  output  -  Complex  value  of  the  response 

1.  Independent  w  plane  variable  used  in  evaluation  of  the  response  is  computed 
by  the  program  using  real  frequency  U  in  COMMON/FRQBLK/ . 

Rogwirwicnts 

COMMON  blocks  I  FRQBLK*HEADDB 
LCAP2  routines!  none 


FAUXZ 


Identification 

COMPLEX  FUNCTION  FAUXZ  -  Evaluate  Response  Of  User-Supplied  Z  Plane  Transfer 

Function 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Evaluate  response  of  user-supplied  z  plane  transfer  function.  The  z  plane 
function  is  defined  by  a  user — supplied  subroutine. 

Usage 


FAUXZ(CFUNC) 

CFUNC  input  -  Name  of  user-supplied  subroutine.  Must  be  declared  with 
an  EXTERNAL  statement  in  the  calling  program. 

FAUXZ  output  -  Complex  value  of  the  response 

1.  Independent  z  plane  frequency  used  in  evaluation  of  the  response  is  com¬ 
puted  by  the  program  using  real  frequency  U  in  COMMON/ FRQBLK/  and  sampling 
period  SAMPT  in  COMMON/HEADDB/ . 

Requirements 

COMMON  blocks i  FRQBLK,HEADDB 
LCAP2  routines!  none 


i 


fauxzm 


COMPLEX  FUNCTION  FAUXZM  -  Evaluate  Multirate  Response  Of  User-Supplied 

Z  Plane  Transfer  Function 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 

Purpose 

Evaluate  multirate  response*  by  Sklansky's  frequency  decomposition  method* 
of  usei — supplied  z  plane  transfer  function.  The  z  plane  transfer  function  is 
defined  by  a  user-supplied  subroutine. 

Usage 


FAUXZMLCFUNC, M*  T) 

CFUNC  input  -  Name  of  usei — supplied  subroutine.  Must  be  declared  with 
an  EXTERNAL  statement  in  the  calling  program. 

M  input  -  Ratio  of  output/input  sampling  periods 

T  input  -  Sampling  period  of  slower  output  sampler 

FAUXZM  output  -  Complex  value  of  the  response 

1.  Independent  z  plane  variable  used  in  evaluation  of  the  response  is  computed 
by  the  program  using  real  frequency  U  in  COMMON/FRQBLK/ . 

Requirements 

COMMON  blocks'  FRQBLK, HEADDB 
LCAP2  routines'  none 


FCNPLN 


Identification 

FUNCTION  FCNPLN  -  Compute  Hollerith  Word  For  IPLANE  Fla 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  Hollerith  word  for  IPLANE  flag  word. 

Haaflg 


FCNPLN( IPLANE) 

IPLANE  input  -  =0,  -1,  1 
FCNPLN  output  -  =  1HS  if  IPLANE  =  0 
=  1HW  if  IPLANE  =  -1 
=  1HZ  if  IPLANE  =  1 


Requirements 

COMMON  blocksi  none 
LCAP2  routines!  none 


fchhi 


Irfaaiiiifiiiifln 

FUNCTION  FCNW1  -  Hollerith  Representation  of  Transfer  Function  (Coefficient 
Form)  Identifier 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  Hollerith  representation  of  transfer  function  (coefficient  form) 
identifier. 

Usage 

FCNN1 ( IPLANE, I ) 

IPLANE  input  -  =0  for  s  plane,  =  -l  for  w  plane,  =1  for  z  plane 

I  input  -  Integer  between  0  and  100 

FCNW1  output  -  =6HSPTFi ,  i  =  I,  for  IPLANE  =  0 

=6HWPTFi ,  i  =  I,  for  IPLANE  =  -1 

=6HZPTFi ,  i  =  I,  for  IPLANE  =  1 


Requirements 

COMMON  blocksi  none 
LCAP2  routines!  HOLLI 


FUNCTION  FCNH2  -  Hollerith  Representation  of  Transfer  Function  (Root 
Form)  Identifier 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  Hollerith  representation  of  transfer  function  (root  form)  identi 

fier . 

Usage 


FCNW2( IPLANE, I ) 

IPLANE  input  -  =0  for  s  plane,  =-l  for  w  plane,  =1  for  z  plane 

I  input  -  Integer  between  0  and  100 

FCNH1  output  -  =6HR00Ti,  i  =  I,  for  IPLANE  =  0 

=6HR00Ti ,  i  =  I,  for  IPLANE  =  -1 

=6HR00Ti ,  i  *  I,  for  IPLANE  =  1 

Method 

The  code  for  this  function  is  in  FCNH1 . 

Requirements 


COMMON  blocks i  none 
LCAP2  routines i  HOLLI 


fetpy 


Identification 

SUBROUTINE  FETPY  -  Fetch  Polynomial 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Fetch  polynomial  in  LCAP2  format. 


Usage 

CALL  FETPY(INDX,TFPOLY,TFROOT, IN) 

INDX  input  -  Index  of  polynomial  to  be  fetched 

TFPOLY  output  -  Polynomial  coefficient  array  (LCAP2  format) 

TFROOT  output  -  Complex  polynomial  root  array  (LCAP2  format),  only  if  IN=0 
IN  output  -  =  1  when  only  coefficients  are  available 

=  0  when  both  coefficients  and  roots  are  available 

1.  If  INDX  .GT.5,  polynomial  data  must  have  been  previously  saved  using  STRPY. 

2.  NPYCNT  in  COMMON/TFPCNT/  is  the  number  of  polynomial  records  on  sequential 
file  TAPE84 . 

Method 

If  INDX  is  1,2,..  or  5,  the  data  is  read  from  CQMMON/SCMBLK/ .  If  INDX  is 
greater  than  5,  the  polynomial  data  is  read  from  the  sequential  file  TAPE84. 


BsstrisUons 

For  INDX  greater  than  5,  the  index  must  have  been  previously  used  in  a  call 
to  STRPY.  In  the  batch  program,  if  INDX  has  not  been  defined  yet,  the  program 
will  abort.  In  the  interactive  program,  if  INDX  has  has  not  been  defined  yet, 
the  program  will  suspend  the  current  LCAP2  operator  and  reenter  (bypassing  the 
normal  return)  subroutine  ILCAP2  at  entry  IRECOV. 

Eaguirmania 

COMMON  blocks  I  HEADDB, INTCOM,SCMBLK,TFPCNT 
LCAP2  routines)  IRECOV 
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FETSTF 


Identification 

SUBROUTINE  FETSTF  -  Fetch  S  Plane  Transfer  Function 
CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

To  fetch  s  plane  transfer  function  in  LCAP2  format. 


Usage 


CALL  FETSTFL INDX/ TFPOLY/ TFROOT , IN, ID) 


Index  of  s  plane  transfer  function  to  be  fetched 
Transfer  function  coefficient  array  (LCAP2  format) 

Complex  transfer  function  root  array  (LCAP2  format)/ 
only  if  IN  and  ID  equal  0. 

=  1  when  only  numerator  coefficients  are  available 

=  0  when  both  numerator  coefficients  and  roots  are  available 

=  1  when  only  denominator  coefficients  are  available 

=  0  when  both  denominator  coefficients  and  roots  are  available 


STRSTF  or  STRTFX. 


INDX 

input 

TFPOLY 

output 

TFROOT 

output 

IN 

output 

ID 

output 

1.  If 

INDX  . 

2.  NSPCNT  in  COMMON/TFPCNT/  is  the  number  of  s  plane  transfer  function  records 
on  the  sequential  file  TAPE85. 


Method 

If  INDX  is  1/2/..  or  5,  the  data  is  read  from  CGMMON/SCMBLK/ .  If  INDX  is 
greater  than  5»  the  transfer  function  data  is  read  from  the  sequential  file 
TAPE85. 

Restrictions 

For  INDX  greater  than  5,  the  index  must  have  been  previously  used  in  a  call 
to  STRSTF  or  STFTFX.  In  the  batch  program/  if  INDX  has  not  been  defined  yet/  the 
program  will  abort.  In  the  interactive  program/  if  INDX  has  has  not  been  defined 
yet/  the  program  will  suspend  the  current  LCAP2  operator  and  reenter  (bypassing 
the  normal  return)  subroutine  ILCAP2  at  entry  IRECOV. 


COMMON  blocks*  HEADDB, INTCOM,SCMBLK,TFPCNT 
LCAP2  routines >  FCNW1,IREC0V 


EEIIEX 


Identification 

SUBROUTINE  FETTFX  -  Fetch  Trensfer  Function 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Fetch  transfer  function  in  LCAP2  format.  Similar  to  FETSTF,  FETNTF  and 
FETZTF  except  the  identifier  for  plane  is  included  as  an  argument. 

liSftflfi 

CALL  FETTFX  (IPLANE, INDX,TFPOLY, TFROOT ,  IN, ID) 

IPLANE  input  -  =0  for  s,  =-l  for  w,  =1  for  z  plane 

INDX  input  -  Index  of  transfer  function  to  be  fetched 

TFPOLY  output  -  Transfer  function  coefficient  array  (LCAP2  format) 

TFROOT  output  -  Complex  transfer  function  root  array  (LCAP2  format), 

only  if  IN  and  ID  equal  0. 

IN  output  -  =  1  when  only  numerator  coefficients  are  available 

-  0  when  both  numerator  coefficients  and  roots  are  available 
ID  output  -  =  1  when  only  denominator  coefficients  are  available 

=  0  when  both  denominator  coefficients  and  roots  are  available 


MlShttd 

This  subroutine  calls  either  FETSTF,  FETWTF  or  FETZTF.  See  description  for 
FETSTF. 

Rt<mr«menta 

COMMON  blocks*  HEADDB, SCMBLK,TFPCNT 
LCAP2  routines*  FETSTF, FETWTF, FETZTF 


FETHTF 


SUBROUTINE  FETHTF  -  Fetch  W  Plane  Transfer  Function 
CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 
PMrPftSg 

To  fetch  w  plane  transfer  function  in  LCAP2  format. 

Usaaa 

CALL  FETWTF(INDX,TFPOLY,TFROOT ,  IN, ID) 

INDX  input  -  Index  of  w  plane  transfer  function  to  be  fetched 

TFPOLY  output  -  Transfer  function  coefficient  array  (LCAP2  format) 

TFROOT  output  -  Complex  transfer  function  root  array  (LCAP2  format), 
only  if  IN  and  ID  equal  0. 

IN  output  -  =  1  when  only  numerator  coefficients  are  available 

=  0  when  both  numerator  coefficients  and  roots  are  available 

ID  output  -  =  1  when  only  denominator  coefficients  are  available 

-  0  when  both  denominator  coefficients  and  roots  are  available 


1.  If  INDX  .GT.5  transfer  function  data  must  have  been  previously  saved  using 
STRWTF  or  STRTFX. 

2.  NWPCNT  in  COMMON/TFPCNT/  is  the  number  of  w  plane  transfer  function  records 
on  the  sequential  file  TAPE86. 

Hsthqd 

If  INDX  is  1,2,..  or  5,  the  data  is  read  from  COMMON/SCMBLK/ .  If  INDX  is 
greater  than  5,  the  transfer  function  data  is  read  from  the  sequential  file 
TAPE86 . 

The  code  for  this  routine  is  in  subroutine  FETSTF. 


For  INDX  greater  than  5,  the  index  must  have  been  previously  used  in  a  call 
to  STRWTF  or  STFTFX.  In  the  batch  program,  if  INDX  has  not  been  defined  yet,  the 
program  will  abort.  In  the  interactive  program,  if  INDX  has  has  not  been  defined 
yet,  the  program  will  suspend  the  current  LCAP2  operator  and  reenter  (bypassing 
the  normal  return)  subroutine  ILCAP2  at  entry  IRECOV. 
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COMMON  blocks)  HEADDB, INTCOM, SCMBLK, TFPCNT 
LCAP2  routines)  FCNWl,IRECOV 


i 


FETZTF 


SUBROUTINE  FETZTF  -  F 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 


Fetch  Z  Plane  Transfer  Function 


Purpose 


To  fetch  z  plane  transfer  function  in  LCAP2  format. 


Usage 


CALL  FETZTF(INDX,TFPOLY,TFROOT , IN, ID) 


INDX  input  - 
TFPOLY  output  - 
TFROOT  output  - 

IN  output  - 

ID  output  - 


Index  of  z  plane  transfer  function  to  be  fetched 
Transfer  function  coefficient  array  (LCAP2  format) 

Complex  transfer  function  root  array  (LCAP2  format), 
only  if  IN  and  ID  equal  0. 

=  1  when  only  numerator  coefficients  are  available 

-  0  when  both  numerator  coefficients  and  roots  are  available 

=  1  when  only  denominator  coefficients  are  available 

=  0  when  both  denominator  coefficients  and  roots  are  available 


1.  If  INDX  .GT.5  transfer  function  data  must  have  been  previously  saved  using 
STRZTF  or  STRTFX. 

2.  NZPCNT  in  COMMON/TFPCNT/  is  the  number  of  z  plane  transfer  function  records 
on  the  sequential  file  TAPE87. 

Method 

If  INDX  is  1,2,..  or  5,  the  data  is  read  from  COMMON/SCMBLK/ .  If  INDX  is 
greater  than  5,  the  transfer  function  data  is  read  from  the  sequential  file 
TAPE87 . 

The  code  for  this  routine  .is  in  subroutine  FETSTF. 


For  INDX  greater  than  5,  the  index  must  have  been  previously  used  in  a  call 
to  STRZTF  or  STFTFX.  In  the  batch  program,  if  INDX  has  not  been  defined  yet,  the 
program  will  abort.  In  the  interactive  program,  if  INDX  has  has  not  been  defined 
yet,  the  program  will  suspend  the  current  LCAP2  operator  and  reenter  (bypassing 
the  normal  return)  subroutine  ILCAP2  at  entry  IRECOV. 


COMMON  blocks i  HEADDB* INTCOM, SCMBIK, TFPCNT 
LCAP2  routines i  FCNH1.IREC0V 


t 
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SUBROUTINE  FPLOT  -  Frequency  Response  Plotting  Routine 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospsce  Corporation 
Purpose 

Compute  frequency  response  plots  such  as  the  Bode*  Nichols  and  Nyquist 
plots. 

Usage 


CAU  FPLOTCNI , DEGPT , DBPT , OMEGPT , CXR, CXI , FDBMX) 


NI 

input 

-  Number  of  plot  points 

DEGPT 

input 

-  Array 

of 

degree  points 

DBPT 

input 

-  Array 

of 

DB  points 

OMEGPT 

input 

-  Array 

of 

omega  points 

CXR 

input 

-  Array 

of 

real  part  of  response 

CXI 

input 

-  Array 

of 

imaginary  part  of  response 

FDBMX 

input 

-  Maximum  DB  value  of  array  DBPT 

1.  The  plot  options  are  determined  by  the  variables  in  COMMON/HEADDB/ .  See 
description  for  SFREQ. 

2.  Additional  annotation  on  the  right  portion  of  the  Nichols  plot  can  be  cre¬ 
ated  with  a  user-supplied  subroutine  USRNOTE. 

Method 

This  subroutine  is  a  driver  to  ELPL0T1. 

Rtatricttona 

The  number  of  plot  points  must  not  be  greater  than  1500. 

Rywirwncnta 


COMMON  blocks i  AWORDS, HEADDB,PL0T1 

LCAP2  routinesi  DAYPRN, ELPL0T1 , GRAF1 , OSCALE? USRNOTE 


FPL0T1 


Identification 

SUBROUTINE  FPLOT1  -  Frequency  Response  Plotting  Routine 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 

Eurpaafl 

Compute  frequency  response  plots  such  as  the  Bode,  Nichols  and  Nyquist 
plots.  Includes  code  for  prompting  by  interactive  LCAP2. 

Usage 

CALL  FPLOTKNI ,  DEGPT,  DBPT,  OMEGPT, CXR,  CXI ,  FDBMX,  IREDO) 


NI 

input 

- 

Number  of  plot  points 

DEGPT 

input 

- 

Array  of  degree  points 

DBPT 

input 

- 

Array  of  DB  points 

OMEGPT 

input 

- 

Array  of  omega  points 

CXR 

input 

- 

Array  of  real  part  of  response 

CXI 

input 

- 

Array  of  imaginary  part  of  response 

FDBMX 

input 

- 

Maximum  DB  value  of  array  DBPT 

IREDO 

output 

- 

(For  interactive  LCAP2  only)  .NE.O  if  user  wants  to 

redefine  frequency  range  from  calling  program.  This 
flag  can  be  tested  by  the  calling  program  so  that  FPL0T1 
can  be  called  again. 

1.  The  plot  options  are  determined  by  the  variables  in  COMMON/HEADDB/ .  See 
description  for  SFREQ. 

2.  NPLOTS  in  C0MM0N/PL0T1/  is  the  number  of  hardcopy  plots  created.  This  var¬ 
iable  is  used  at  the  end  of  a  job  to  determine  how  many  hardcopy  records 
have  been  generated. 

3.  Interactive  flag  INTFLG(presetsO)  of  COMMON/INTFLG/  must  be  set  .NE.O  for 
interactive  LCAP2. 

4.  Additional  annotation  on  the  right  portion  of  the  Nichols  plot  can  be  cre¬ 
ated  with  a  user-supplied  subroutine  USRNOTE. 

Method 

This  subroutine  is  a  driver  to  ELPL0T1 . 

Restrictions 

The  number  of  plot  points  must  not  be  greater  than  1500. 


COMMON  blocks!  AWORDS, INTCOM, HEADDB, PLOT1 

LCAP2  routines!  ELPL0T1,GRAF1, ITITLE, OSCALE, USRNOTE 


FREQS 


Identification 

SUBROUTINE  FREQS  -  LCAP2  Operator#  Frequency  Response  Using  A 

User-Supplied  Function 

CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 

Purpose 

Compute  frequency  response  of  an  arbitrary  s  plane  transfer  function. 


Usage 


CALL  FREQS(FAUXl) 

FAUX1  input  -  Name  of  user-supplied  subroutine.  Must  be  declared  with  an 
EXTERNAL  statement  in  the  calling  program. 

1.  Frequency  response  parameters  are  in  COMMON/HEADDB/ .  See  description  of 
SFREQ.  The  user  need  not  be  concerned  with  passing  the  arguments  for  com¬ 
puting  the  frequency  rerponse.  It  is  automatically  done  by  LCAP2. 

Method 

This  subroutine  call  FREQS1 . 

Restrictions 

FREQS  is  to  be  used  only  for  the  batch  version  of  LCAP2. 

Requirements 


COMMON  blocks >  SCMBLK 

LCAP2  routines!  FREQS2 . FREQW2, FREQZ2 


FREQSI1 


Idmiifisfliian 

SUBROUTINE  FREQSI1  -  Interactive  Prompts  For  Frequency  Response  Operators 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Interactive  code  to  prompt  user  for  frequency  response  parameters. 


Usage 


CALL  FREQSIH IENTRY, MULTI* IPRN1 ) 


I ENTRY  input 


MULTI  input 
IPRN1  output 


-  =1  for  s  plane 
=2  for  z  plane 
=3  for  w  plane 

=4  for  multirate  z  plane 
=5  for  multirate  w  plane 

-  . NE.O  for  multirate  sampling 

-  =0  to  suppress  tabular  printout  of  response 
.NE.O  to  print  out  response 


This  subroutine  is  called  by  subroutine  FRE9S3.  This  code  was  not  placed 
into  FREQS3  so  that  it  can  be  placed  into  a  higher  tree  for  the  segment  loader. 

Requirements 


COMMON  blocks i  FRQBLK* HEADDB 
LCAP2  routines i  none 


FREQS2 


Identification 

SUBROUTINE  FREQS2  -  Frequency  Response  Of  An  S  Plane  Transfer  Function 

In  LCAP2  Format 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  frequency  response  of  an  s  plane  transfer  function.  The  transfer 
function  can  be  specified  in  the  standard  LCAP2  format  or  it  can  be  an  arbitrary 
user-defined  transfer  function.  A  user  defined  transfer  function  does  not  have 
to  have  the  same  limitations  as  the  standard  LCAP2  format. 

Usage 

CALL  FREQS2C A, FAUX) 

input  -  Transfer  function  coefficient  array  (LCAP2  format) 
input  -  Name  of  complex  function  to  be  used  for  evaluating  the 
transfer  function.  (Must  be  declared  with  an  EXTERNAL 
statement  in  the  calling  program).  If  array  A  is  to  be 
evaluated,  enter  SFAUX. 

1.  Frequency  response  parameters  are  in  COMMON/HEADDB/ .  See  description  of 
SFREQ.  The  user  need  not  be  concerned  with  passing  the  arguments  for  com¬ 
puting  the  frequency  response.  It  is  automatically  done  by  LCAP2. 

2.  Computed  response  variables  are  stored  in  blank  common  // .  See  description 
for  SFREQ. 

tteihad 

Arguments  of  this  subroutine  determine  the  transfer  function  to  be  used.  If 
the  second  argument  is  SFAUX,  the  code  in  FREQS1  and  SFAUX  is  written  so  that  the 
array  A  will  be  used  as  the  transfer  function.  If  the  second  argument  is  not 
SFAUX,  the  user  must  supply  his  own  complex  function  to  evaluate  a  transfer 
function.  For  an  example  see  description  for  SFAUX1 . 

RfiSMirgmanis 

COMMON  blocks >  // 

LCAP2  routines i  FPL0T1, FREQS3 


A 

FAUX 
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Identification 


SUBROUTINE  FREQS3  - 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  frequency  response  of  a  transfer  function.  This  subroutine  is 
called  by  FREQS2. 

Usage 


CALL  FREQS3(IENTRY,A,FAUX) 


I  ENTRY  input 
A  input 
FAUX  input 


-  =0  for  s  planer  =-l  for  w  planer  =1  for  z  plane 

-  Transfer  function  coefficient  array  (LCAP2  format) 

-  Name  of  complex  function  to  be  used  for  evaluating  the 
transfer  function.  (Must  be  declared  with  an  EXTERNAL 
statement  in  the  calling  program).  If  array  A  is  to  be 
evaluated,  enter  SFAUX  if  IENTRY=1 ,  ZFAUX  if  IENTRY=2 
or  4,  WFAUX  if  IENTRY=3  or  5. 


1.  Frequency  response  parameters  are  in  COMMON/HEADDB/ .  See  description  of 
SFREQ.  The  user  need  not  be  concerned  with  passing  the  arguments  for  com¬ 
puting  the  frequency  response.  It  is  automatically  done  by  LCAP2. 

2.  Computed  response  variables  are  stored  in  blank  common  // .  See  description 
for  SFREQ. 


Method 


Requirements 


COMMON  blocks:  FRQBLK, HEADDB, INTCOM,// 
LCAP2  routines:  FREQSI1 


FREQH 


Identification 

SUBROUTINE  FREQH  -  LCAP2  Operator/  H  Plane  Frequency  Response  Using  A 

User-Supplied  Function 

CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  w  plane  frequency  response  of  an  arbitrary  w  plane  transfer  func¬ 
tion. 

Usage 

CALL  FREQH(FAUXl) 

FAUX1  input  -  Name  of  user-supplied  subroutine.  Must  be  declared  with  an 
EXTERNAL  statement  in  the  calling  program. 

1.  Frequency  response  parameters  are  in  COMMON/HEADDB/ .  See  description  of 
SFREQ.  The  user  need  not  be  concerned  with  passing  the  arguments  for  com¬ 
puting  the  frequency  response.  It  is  automatically  done  by  LCAP2. 

Method 

This  subroutine  calls  FREQH1 . 

The  code  for  this  routine  is  in  subroutine  FREQS. 

Bfts.tristiang 

FREQH  is  to  be  used  only  for  the  batch  version  of  LCAP2. 

Regwirejumts 

COMMON  blocks!  SCMBLK 

LCAP2  routines)  FREQS2, FREQH2, FREQZ2 


F8ESHM1 


SUBROUTINE  FREQMM1  -  Multirate  Frequency  Response  Of  A  N  Plane  Transfer 

Function  In  LCAP2  Format  (Batch  Version) 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  the  multirate  (fast  input,  slow  output)  frequency  response  of  a  w 
plane  transfer  function.  The  transfer  function  can  be  specified  in  the  standard 
LCAP2  format  or  it  can  be  an  arbitrary  user-defined  transfer  function.  A 
user — defined  transfer  function  does  not  have  to  have  the  same  limitations  as  the 
standard  LCAP2  format.  FREQMM1  is  to  be  used  for  the  batch  version  of  LCAP2. 

Uspas 

CALL  FREQHM1 (  A , FAUX ) 

A  input  -  Transfer  function  coefficient  array  (LCAP2  format) 

FAUX  input  -  Name  of  complex  function  to  be  used  for  evaluating  the 
transfer  function.  (Must  be  declared  with  an  EXTERNAL 
statement  in  the  calling  program) .  If  array  A  is  to  be 
evaluated,  enter  MFAUX. 

1.  The  sampling  period,  SAMPT,  of  COMMON/HEADDB/  and  the  integer  ratio  of  the 
(output/input)  sampling  periods,  MMTGER,  of  COMMON/FRQBLK/  must  be  set 
before  FREQMM1  is  called. 

2.  Frequency  response  parameters  are  in  COMMON/HEADDB/.  See  description  of 
SFRE9.  The  user  need  not  be  concerned  with  passing  the  arguments  for  com¬ 
puting  the  frequency  response.  It  is  automatically  done  by  LCAP2. 

3.  Computed  response  variables  are  stored  in  blank  common  //.  See  description 
for  SFREQ. 

Mflihari 

Sklansky's  frequency  decomposition  method  is  used  to  compute  the  frequency 
response . 

Arguments  of  this  subroutine  determine  the  transfer  function  to  be  used.  If 
the  second  argument  is  HFAUX,  the  code  in  FREQMM1  and  MFAUX  is  written  so  that 
the  array  A  will  be  used  as  the  transfer  function.  If  the  second  argument  is  not 
MFAUX,  the  user  must  supply  his/her  own  complex  function  to  evaluate  a  transfer 
function.  For  an  example  see  description  for  SFAUX1. 
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The  code  for  this  routine  is  in  subroutine  FREQS1 . 
■ictions 

This  is  to  be  used  only  for  the  batch  version  of  LCAP2 
rements 

COMMON  blocks:  FRQBLK, HEADDB,// 

LCAP2  routines:  FPLOT 


FREQWM2 


Identification 

SUBROUTINE  FREQWM2  -  Multirate  Frequency  Response  Of  A  W  Plane  Transfer 

Function  In  LCAP2  Format  (Interactive  Version) 

CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  the  multirate  (fast  input,  slow  output)  frequency  response  of  a  w 
plane  transfer  function.  The  transfer  function  can  be  specified  in  the  standard 
LCAP2  format  or  it  can  be  an  arbitrary  user-defined  transfer  function.  A  user 
defined  transfer  function  does  not  have  to  have  the  same  limitations  as  the 
standard  LCAP2  format.  This  is  to  be  used  only  for  interactive  version  of  LCAP2. 


Usage 


CALL  FREQWM2(A,FAUX) 


A  input 
FAUX  input 


-  Transfer  function  coefficient  array  (LCAP2  format) 

-  Name  of  complex  function  to  be  used  for  evaluating  the 
transfer  function.  (Must  be  declared  with  an  EXTERNAL 
statement  in  the  calling  program).  If  array  A  is  to  be 
evaluated,  enter  WFAUX. 


The  sampling  period,  SAMPT ,  of  COMMON/HEADDB/  and  the  integer  ratio  of  the 
( output/ input)  sampling  periods,  MMTGER,  of  COMMON/ FRQBLK/  must  be  set 
before  FREQWM2  is  called. 

Frequency  response  parameters  are  in  COMMON/HEADDB/.  See  description  of 
SFREQ.  The  user  need  not  be  concerned  with  passing  the  arguments  for  com¬ 
puting  the  frequency  response.  It  is  automatically  done  by  LCAP<. 

Computed  response  variables  are  stored  in  blank  common  // .  See  description 
for  SFREQ. 


Method 

Sklansky's  frequency  decomposition  method  is  used  to  compute  the  frequency 
response. 

Arguments  of  this  subroutine  determine  the  transfer  function  to  be  used.  If 
the  second  argument  is  WFAUX,  the  code  in  FREQWM2  and  WFAUX  is  written  so  that 
the  array  A  will  be  used  as  the  transfer  function.  If  the  second  argument  is  not 
WFAUX,  the  user  must  supply  his  own  complex  function  to  evaluate  a  transfer 
function.  For  an  example  see  description  for  SFAUX1. 
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To  improve  segment  loading  in  tha  intaractive  version  of  LCAP2>  the  coda  in 
FRE9H1  was  segmented  into  FREQS2*  FREQS3  and  FREQSI1 .  Subroutine  FREQS2  is  a 
driver  routine  to  FREQS3.  The  code  for  this  routine  is  in  subroutine  FREQS2. 


FREQHM2  is  to  be  used  only  for  tha  interactive  version  of  LCAP2.  If  used 
for  the  batch  version  a  larger  memory  length  will  be  required  for  loading. 

Requirements 


COMMON  blockst  FRQ81K, HEADDB,// 
LCAP2  routines!  FPL0T1*FREQS3 


freqhi 


SUBROUTINE  FREQHI  -  Frequency  Response  Of  A  W  Plane  Transfer  Function 

In  LCAP2  Format  (Batch  Version) 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 

Purpose 

Compute  frequency  response  of  a  w  plane  transfer  function.  The  transfer 
function  can  be  specified  in  the  standard  LCAP2  format  or  it  can  be  an  arbitrary 
user-defined  transfer  function.  A  user-defined  transfer  function  does  not  have 
to  have  the  same  limitations  as  the  standard  LCAP2  format.  FREQHI  is  to  be  used 
for  the  batch  version  of  LCAP2. 

UsaaQ 

CALL  FREQHI (A, FAUX) 

A  input  -  Transfer  function  coefficient  array  (LCAP2  format) 

FAUX  input  -  Name  of  complex  function  to  be  used  for  evaluating  the 
transfer  function.  (Must  be  declared  with  an  EXTERNAL 
statement  in  the  calling  program).  If  array  A  is  to  be 
evaluated*  enter  HFAUX. 

1.  The  sampling  period,  SAMPT  of  COMMON/HEADDB/  must  set  before  FREQHI  is 
called. 

2.  Frequency  response  parameters  are  in  COMMON/HEADDB/.  See  description  of 
SFREQ.  The  user  need  not  be  concerned  with  passing  the  arguments  for  com¬ 
puting  the  frequency  response.  It  is  automatically  done  by  LCAP2. 

3.  Computed  response  variables  are  stored  in  blank  common  //.  See  description 
for  SFREQ. 

Ufilhsd 

Arguments  of  this  subroutine  determine  the  transfer  function  to  be  used.  If 
the  second  argument  is  HFAUX,  the  code  in  FREQHI  and  HFAUX  is  written  so  that  the 
array  A  will  be  used  as  the  transfer  function.  If  the  second  argument  is  not 
HFAUX,  the  user  must  supply  his  own  complex  function  to  evaluate  a  transfer 
function.  For  an  example  see  description  for  SFAUX1. 

The  code  for  this  routine  is  in  subroutine  FREQS1 . 


FREQM2 


SUBROUTINE  FREQM2  -  Frequency  Response  Of  A  W  Plane  Transfer  Function 

In  LCAP2  Format  (Interactive  Version) 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
P.u.CRQ?g 

Compute  frequency  response  of  a  w  plane  transfer  function.  The  transfer 
function  can  be  specified  in  the  standard  LCAP2  format  or  it  can  be  an  arbitrary 
usei — defined  transfer  function.  A  user-defined  transfer  function  does  not  have 
to  have  the  same  limitations  as  the  standard  LCAP2  format.  FREQM2  is  to  be  used 
only  for  the  interactive  version  of  LCAP2. 

Usage 

CALL  FREQM2(A, FAUX) 

A  input  -  Transfer  function  coefficient  array  (LCAP2  format) 

FAUX  input  -  Name  of  complex  function  to  be  used  for  evaluating  the 
transfer  function.  (Must  be  declared  with  an  EXTERNAL 
statement  in  the  calling  program).  If  array  A  is  to  be 
evaluated,  enter  MFAUX. 

1.  Frequency  response  parameters  are  in  COMMON/HEADDB/ .  See  description  of 
SFREQ.  The  user  need  not  be  concerned  with  passing  the  arguments  for  com¬ 
puting  the  frequency  resprnse.  It  is  automatically  done  by  LCAP2. 

2.  Computed  response  variables  are  stored  in  blank  common  // .  See  description 
for  SFREQ. 

Method 

Arguments  of  this  subroutine  determine  the  transfer  function  to  be  used.  If 
the  second  argument  is  MFAUX,  the  code  in  FREQH2  and  MFAUX  is  written  so  that  the 
array  A  will  be  used  as  the  transfer  function.  If  the  second  argument  is  not 
MFAUX,  the  user  must  supply  his  own  complex  function  to  evaluate  a  transfer 
function.  For  an  example  see  description  for  SFAUX1 . 

To  improve  segment  loading  in  the  interactive  version  of  LCAP2,  the  code  in 
FREQH1  was  segmented  into  FREQS2,  FREQS3  and  FREQSI1.  Subroutine  FREQS2  is  a 
driver  routine  to  FREQS3.  The  code  for  this  routine  is  in  subroutine  in  FREQS2. 


Baalcisiittna 

FREQW2  is  to  bo  used  only  for  the  interactive  version  of  LCAP2.  If  used  for 
the  batch  version  a  larger  memory  length  will  be  required  for  loading. 

Requirements 

COMMON  blocks*  ✓/ 

LCAP2  routines*  FPL0T1 


FRE9Z 


Identification 

SUBROUTINE  FREQZ  -  LCAP2  Operator,  Z  Plane  Frequency  Response  Using  A 

User — Supplied  Function 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  frequency  response  of  an  arbitrary  z  plane  transfer  function. 


M- 


r*-  4 


& 


ft 
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CALL  FREQZCFAUX1) 


FAUX1  input  -  Name  of  user — supplied  subroutine.  Must  be  declared  with  an 
EXTERNAL  statement  'n  the  calling  program. 


1.  Frequency  response  parameters  are  in  COMMON/HEADDB/ .  See  description  of 
SFREQ.  The  user  need  not  be  concerned  with  passing  the  arguments  for  com¬ 
puting  the  frequency  response.  It  is  automatically  done  by  LCAP2. 


This  subroutine  calls  FREQZ1 . 

The  code  for  this  routine  is  in  subroutine  FREQS. 

FREQZ  is  to  be  used  only  for  the  batch  version  of  LCAP2. 
Requirements 


COMMON  blocks >  SCMBLK 

LCAP2  routines.  FREQS2, FREQW2, FREQZ2 
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AD-A141  286  LCAP2  (LINEAR  CONTROLS  ANALYSIS  PROGRAM)  VOLUME  3 

SOURCE  CODE  DESCRIPTION.  .  (U)  AEROSPACE  CORP  EL  SEGUNDO 
CA  GUIDANCE  AND  CONTROL  DIV  E  A  LEE  15  NOV  83 
UNCLASSIFIED  TR-0084(9975)-i-VOL-2  SD-TR-84-06-VOL-3  F/G  9/2 


FREQZM1 


Identification 

SUBROUTINE  FREQZM1  -  Multirate  Frequency  Response  Of  A  Z  Plane  Transfer 

Function  In  LCAP2  Format  (Batch  Version) 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  the  multirate  (fast  input,  slow  output)  frequency  response  of  a  z 
plane  transfer  function.  The  transfer  function  can  be  specified  in  the  standard 
LCAP2  format  or  it  can  be  an  arbitrary  user-defined  transfer  function.  A 
user — defined  transfer  function  does  not  have  to  have  the  same  limitations  as  the 
standard  LCAP2  format.  FREQZM1  is  to  be  used  for  the  batch  version  of  LCAP2. 

Usage 

CALL  FREQZMKA,  FAUX) 

A  input  -  Transfer  function  coefficient  array  (LCAP2  format) 

FAUX  input  -  Name  of  complex  function  to  be  used  for  evaluating  the 
transfer  function.  (Must  be  declared  with  an  EXTERNAL 
statement  in  the  calling  program).  If  array  A  is  to  be 
evaluated,  enter  ZFAUX. 

1.  The  sampling  period,  SAMPT ,  of  COMMON/HEADDB/  and  the  integer  ratio  of  the 
(output/input)  sampling  periods,  MMTGER,  of  COMMON/FRQBLK/  must  be  set 
before  FREQZM1  is  called. 

2.  Frequency  response  parameters  are  in  COMMON/HEADDB/.  See  description  of 
SFREQ.  The  user  need  not  be  concerned  with  passing  the  arguments  for  com¬ 
puting  the  frequency  response.  It  is  automatically  done  by  LCAP2. 

3.  Computed  response  variables  are  stored  in  blank  common  // .  See  description 
for  SFREQ. 

Hg.tlhftd 

Sklansky's  frequency  decomposition  method  is  used  to  compute  the  frequency 
response. 

Arguments  of  this  subroutine  determine  the  transfer  function  to  be  used.  If 
the  second  argument  is  ZFAUX,  the  code  in  FREQZM1  and  ZFAUX  is  written  so  that 
the  array  A  will  be  used  as  the  transfer  function.  If  the  second  argument  is  not 
ZFAUX,  the  user  must  supply  his/her  own  complex  function  to  evaluate  a  transfer 
function.  For  an  example  see  description  for  SFAUX1 . 


FREQZM2 


litanliflfiftiian 

SUBROUTINE  FREQZM2  -  Multirate  Frequency  Response  OF  A  Z  Plane  Transfer 

Function  In  LCAP2  Format  (Interactive  Version) 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 

Purpose 

Compute  the  multirate  (fast  input/  slow  output)  frequency  response  of  a  z 
plane  transfer  function.  The  transfer  function  can  be  specified  in  the  standard 
LCAP2  format  or  it  can  be  an  arbitrary  user-defined  transfer  function.  A 
user — defined  transfer  function  does  not  have  to  have  the  same  limitations  as  the 
standard  LCAP2  format.  FREQZM2  is  to  be  used  for  the  interactive  version  of 
LCAP2 . 

Usage 


CALL  FREQZM2( A, FAUX) 

A  input  -  Transfer  function  coefficient  array  (LCAP2  format) 

FAUX  input  -  Name  of  complex  function  to  be  used  for  evaluating  the 
transfer  function.  (Must  be  declared  with  an  EXTERNAL 
statement  in  the  calling  program).  If  array  A  is  to  be 
evaluated/  enter  ZFAUX. 

1.  The  sampling  period/  SAMPT /  of  COMMON/HEADDB/  and  the  integer  ratio  of  the 
(output/input)  sampling  periods,  MMTGER,  of  COMMON/FRQBLK/  must  be  set 
before  FREQZM2  is  called. 

2.  Frequency  response  parameters  are  in  COMMON/HEADDB/.  See  description  of 
SFREQ.  The  user  need  not  be  concerned  with  passing  the  arguments  for  com¬ 
puting  the  frequency  response.  It  is  automatically  done  by  LCAP2. 

3.  Computed  response  variables  are  stored  in  blank  common  // .  See  description 
for  SFREQ. 

Method 

Sklansky's  frequency  decomposition  method  is  used  to  compute  the  frequency 
response. 

Arguments  of  this  subroutine  determine  the  transfer  function  to  be  used.  If 
the  second  argument  is  ZFAUX,  the  code  in  FREQZM2  and  ZFAUX  is  written  so  that 
the  array  A  will  be  used  as  the  transfer  function.  If  the  second  argument  is  not 
ZFAUX,  the  user  must  supply  his/her  own  complex  function  to  evaluate  a  transfer 
function.  For  an  example  see  description  for  SFAUX1 . 


To  improve  segment  loading  in  the  interactive  version  of  LCAP2,  the  code  in 
FREQZ1  was  segmented  into  FREQS2*  FREQS3  and  FREQSI1.  Subroutine  FREQS2  is  a 
driver  routine  to  FREQS3. 

The  code  for  this  routine  is  in  subroutine  FREQS2. 

Restrictions 

FREQZM2  is  to  be  used  only  for  the  batch  version  of  LCAP2.  If  used  for  the 
batch  version  a  larger  memory  length  will  be  required  for  loading. 

Requirements 


COMMON  blocks!  // 

LCAP2  routines :  FPL0T1 , FREQS3 
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FREQZ1 


SUBROUTINE  FREQZ1  -  Frequency  Response  Of  A  Z  Plane  Transfer  Function 

In  LCAP2  Format  (Batch  Version) 

CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 


Purpose 


Compute  frequency  response  of  a  z  plane  transfer  function.  The  transfer 
function  can  be  specified  in  the  standard  LCAP2  format  or  it  can  be  an  arbitrary 
usei — defined  transfer  function.  A  user — defined  transfer  function  does  not  have 
to  have  the  same  limitations  as  the  standard  LCAP2  format.  FREQZ1  is  to  be  used 
for  the  batch  version  of  LCAP2. 


Usage 


CALL  FREQZ1 (A, FAUX) 


A  input 
FAUX  input 


-  Transfer  function  coefficient  array  (LCAP2  format) 

-  Name  of  complex  function  to  be  used  for  evaluating  the 
transfer  function.  (Must  be  declared  with  an  EXTERNAL 
statement  in  the  calling  program).  If  array  A  is  to  be 
evaluated,  enter  ZFAUX. 


The  sampling  period,  SAMPT  of  COMMON/HEADDB/  must  set  before  FREQZ1  is 
called. 


Frequency  response  parameters  are  in  COMMON/HEADDB/ .  See  description  of 
SFREQ.  The  user  need  not  be  concerned  with  passing  the  arguments  for  com¬ 
puting  the  frequency  response.  It  is  automatically  done  by  LCAP2. 


Computed  response  variables  are  stored  in  blank  common  // .  See  description 
for  SFREQ. 


Arguments  of  this  subroutine  determine  the  transfer  function  to  be  used.  If 
the  second  argument  is  ZFAUX,  the  code  in  FREQZ1  and  ZFAUX  is  written  so  that  the 
array  A  will  be  used  as  the  transfer  function.  If  the  second  argument  is  not 
ZFAUX,  the  user  must  supply  his/her  own  complex  function  to  evaluate  a  transfer 
function.  For  an  example  see  description  for  SFAUX1 . 


The  code  for  this  routine  is  in  subroutine  FREQS1. 


■*-  A.'  ' 
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EREQZ2 


Identifi cation 

SUBROUTINE  FREQZ2  -  Frequency  Response  Of  A  Z  Plene  Trensfer  Function 

In  LCAP2  Format  (Interactive  Version) 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  frequency  response  of  a  z  plane  transfer  function.  The  transfer 
function  can  be  specified  in  the  standard  LCAP2  format  or  it  can  be  an  arbitrary 
user-defined  transfer  function.  A  user-defined  transfer  function  does  not  have 
to  have  the  same  limitations  as  the  standard  LCAP2  format.  FREQZ2  is  to  be  used 
only  for  the  interactive  version  of  LCAP2. 

Usage 

CALL  FREQZ2(A,  FAUX) 

A  input  -  Transfer  function  coefficient  array  (LCAP2  format) 

FAUX  input  -  Name  of  complex  function  to  be  used  for  evaluating  the 
transfer  function.  (Must  be  declared  with  an  EXTERNAL 
statement  in  the  calling  program).  If  array  A  is  to  be 
evaluated,  enter  ZFAUX. 

1.  Frequency  response  parameters  are  in  COMMON/HEADDB/ .  See  description  of 
SFREQ.  The  user  need  not  be  concerned  with  passing  the  arguments  for  com¬ 
puting  the  frequency  response.  It  is  automatically  done  by  LCAP2. 

2.  Computed  response  variables  are  stored  in  blank  common  //.  See  description 
for  SFREQ. 

Method 

Arguments  of  this  subroutine  determine  the  transfer  function  to  be  used.  If 
the  second  argument  is  ZFAUX,  the  code  in  FREQZ2  and  ZFAUX  is  written  so  that  the 
array  A  will  be  used  as  the  transfer  function.  If  the  second  argument  is  not 
ZFAUX,  the  user  must  supply  his/her  own  complex  function  to  evaluate  a  transfer 
function.  For  an  example  see  description  for  SFAUX1 . 

To  improve  segment  loading  in  the  interactive  version  of  LCAP2,  the  code  in 
FREQZ1  was  segmented  into  FREQS2,  FREQS3  and  FREQSI1.  Subroutine  FREQS2  is  a 
driver  routine  to  FREQS3. 

The  code  for  this  routine  is  in  subroutine  FRE0S2. 


SUBROUTINE  GRAF1  -  Aerospace  Printer  Plot  Routine 
CDC  FORTRAN  A 

B.  Gold,  modified  by  0.  Drummond  &  E.  A.  Lee 
Aerospace  Corporation 

Purpose 

GRAF1  provides  the  means  to  plot  one  to  ten  functions  on  a  single  full  page 
of  printer  output  paper. 

Usaas 


CALL  GRAF1(NP,NFCN,X»  F,XMN,XMX, YMN, YMX, NDUM, OPT , KDIM, LOGFLG, ICYCLE) 


NP 

input 

- 

Number  of  plot  points 

NFCN 

input 

- 

Number  of  functions  to  be  plotted 

X 

input 

- 

Array  of  the  independent  variable 

F 

input 

- 

Array  of  the  dependent  variable 

XMN 

input 

- 

Minimum  x  axis 

XMX 

input 

- 

Maximum  x  axis 

YMN 

input 

- 

Minimun  y  axis 

YMX 

input 

- 

Maximun  y  axis 

NDUM 

input 

- 

Number  of  columns  used  for  x  axis 

OPT 

input 

.  EQ.O  for  different  range  on  both  axis 
.  EQ.l  for  same  range  on  both  axis 

KDIM 

input 

- 

Row  dimension  of  F 

LOGFLG 

input 

- 

.NE.O  for  semi-log  plot 

ICYCLE 

input 

— 

Number  of  cycles  on  x  axis  (1,2  or  3) 

Retirements 

COMMON  blocks >  none 
LCAP2  routines!  none 


HEADIHI ,(1=1,5) 


Identification 

SUBROUTINE  HEADINi  -  Heading  Statement  For  Entering  Plot  Titles 

(i=l,5) 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Simple  FORTRAN  statement  for  entering  Hollerith  data  into  the  plot  array 
HEAD  of  COMMON/ HEADDB/  used  for  labeling  plot  titles. 

Usage 


CALL  HEADINi(INDX,WORD) 

INDX  input  -  Pointer  to  array  HEAD  of  COMMON/HEADDB/  where  array 
WORD  will  be  copied  into 

WORD  input  -  Hollerith  data  with  format  10H...  if  i=l 

20H . . .  if  i=2 

50H. . .  if  i =5 

1.  First  line  of  plot  title  is  in  HEAD( i ) , i =1 , 7 
Second  line  of  plot  title  is  in  HEAD( i ) , i =8 , 14 
Third  line  of  plot  title  is  in  HEADCi ) , i  =  15, 21 
Fourth  line  of  plot  title  is  in  HEAD( i ) , i=22, 28 

2.  Example.  CALL  HEADIN2C8, 20HTHIS  IS  AN  EXAMPLE  )  will  yield, 

HEAD(3)=1QHTHIS  IS  AN 
HEAD(4)=10HEXAMPLE 

which  will  appear  as  the  second  line  of  the  plot  title. 

3.  First  line  of  plot  title  will  appear  at  the  top  of  the  plot. 
Second  line  will  begin  a  YANOT  units  from  the  bottom  of  page 
(full  scale  defined  from  0-10  units).  YANOT  (preset=9.6)  is 
in  COMMON/HEADDB/. 

Requirements 

COMMON  blocks.  HEADDB 
LCAP2  routines:  none 


95 


iVi 


SUBROUTINE  HELP  -  Help  Subroutine  For  Interactive  LCAP2 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 

Purp.eae 

Help  subroutine  for  interactive  LCAP2.  User  is  prompted  for 

1.  General  description 

2.  List  of  polynomial  operators 

3.  List  of  s  plane  transfer  function  operators 

4.  List  of  z  plane  transfer  function  operators 

5.  List  of  w  plane  transfer  function  operators 

6.  List  of  miscellaneous  operators 

7.  List  of  polynomial*  s*w ,z  plane  and  misc.  operators 

8 .  Explain  use  of  list  directed  input  for  data  entry 

9.  Exit  HELP 

Usage 

CALL  HELP 

Restristiens 

Used  only  by  the  interactive  version  of  LCAP2. 

Reqsu  cements 


COMMON  blocks >  none 
LCAP2  routines)  none 


FUNCTION  HOLLI  -  Converts  Integer  To  Hollerith  Characters  Left  Justified 
CDC  FORTRAN  <\ 

E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Converts  integer  to  Hollerith  character  left  justified. 

Usage 


HOLLI(I) 

I  input  -  Integer  between  0  and  100,  or  else  -1  or  -2 

HOLLI  output  -  Hollerith  representation  of  I,  left  justified,  if  I  is 
between  0  and  100. 

=  2HN  if  I=-l 
=  2HD  if  I=-2 
=  Blank  otherwise 

Requirements 


COMMON  blocks)  none 
LCAP2  routines)  none 


SUBROUTINE  IARGO  -  Interactive  Driver  Routine  For  Operators  With  No  Input 

Argument 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Interactive  driver  routine  for  LCAP2  operators  with  no  input  arguments 
LCAP2  operators  END,  NOP,  RESTORE  and  STORE  are  processed  in  this  subroutine. 

Usage 


CALL  IARGO(JEXIT) 

JEXIT  output  -  .EQ.l  if  operation  END  is  found 

.EQ.O  if  operation  END  is  not  found 

1.  This  routine  is  called  by  ILCAP2. 

Requirements 


COMMON  blocksi  ACOM,  INTCOM, PRNCTL 
LCAP2  routines!  IRSTOR, ISTORE 


SUBROUTINE  IARG1A  -  Interactive  Driver  Routine  For  Operators  With  One  Input 

Argument 


CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Interactive  driver  routine  for  some  of  the  LCAP2  operators  with  one  input 
argument.  LCAP2  operators  PCNGC,  PCNGR,  PEQU,  PLDC,  PLDR,  PPRN,  PRTS,  SELCR, 
SNORM,  SPCNGC,  SPCNGR,  SPEQU,  SPLDC,  SPLDR,  SPPRN,  SPRTS,  WELCR,  WNORM,  WPCNGC, 
WPCNGR,  WPEQU,  WPLDC,  WPLDR,  WPPRN,  WPRTS,  ZELCR,  ZNORM,  ZPCNGC,  ZPCNGR,  ZPEQU, 
ZPLDC,  ZPLDR,  ZPPRN,  ZPRTS,  CPYSP,  CPYWP,  CPYZP  and  DETRM  are  processed  in  this 
subroutine. 

Usage 

CALL  IARG1A 


1.  This  routine  is  called  by  ILCAP2. 

Method 

Prompting  for  arguments  of  the  LCAPZ  operators  (transfer  function  or  polyno¬ 
mial  number,  or  new  data)  is  done  in  this  subroutine.  The  appropriate  subrou¬ 
tine  is  then  called  to  implement  the  operator.  For  the  operator  PEQU,  SPEQU, 
WPEQU,  or  ZPEQU,  the  user  is  prompted  for  the  number  where  the  resultant  polyno¬ 
mial  or  transfer  function  is  to  be  stored. 

Requirements 

COMMON  blocks:  ACOM, HEADDB , INTCOM, PRNCTL 

LCAPZ  routines :  CNGCO , CNGCOP , CNGRT , CNGRTP , COEFF, COEFP , CPYSP , CPYPW, CPYZP , 
ENDLINE, IDETRM,IDTERM,IR00T,IR00TP, PEQU, PPRN, PRTS, SELCR, 
SNORM, SPEQU, SPPRN, SPRTS, WELCR, WNORM, WPEQU, WPPRN, WPRTS, 
ZELCR, ZNORM, ZPEQU, ZPPRN, ZPRTS 


lAsm 


Identification 


SUBROUTINE  IARG1B  -  Interactive  Driver  Routine  For  Operators  Hith  One  Input 

Argument 

CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 
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Interactive  driver  routine  for  some  of  the  LCAP2  operators  with  one  input 
argument.  LCAP2  operators  SFREQ,  SLOCI,  STIME,  WFREQ,  WMRFQ,  WLOCI,  ZFREQ, 
ZMRFQ,  ZLOCI,  ZTIME  are  processed  in  this  subroutine. 

Usaaa 


CALL  IAR61B 


1.  This  routine  is  called  by  ILCAP2. 

Method 

Prompting  for  arguments  of  the  LCAP2  operators  (transfer  function  or  polyno¬ 
mial  number,  or  new  data)  is  done  in  this  subroutine.  The  appropriate  subrou¬ 
tine  is  then  called  to  implement  the  operator. 

Requirements 

COMMON  blocks>  ACOM, HEADDB , PRNCTL 

LCAP2  routines i  COEFF, FREQS, FREQW, FREQZ, IROOT, SFAUX1 , SFREQ, SLOCI , STIME, 
WFAUX1,WFREQ, WLOCI, WMRFQ, ZFAUX1, ZFREQ, ZLOCI, ZMRFQ, 

ZTIME 


100 
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SUBROUTINE  IDETRM  -  Interactive  Input  Of  Matrix  Data  And  Calculation 

Of  Determinant 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Eur-BASS 

Interactive  input  of  matrix  data  and  calculation  of  determinant. 

Usage 

CALL  IDETRM 

1.  Before  IDETRM  is  used,  the  matrix  parameters  must  be  initialized  by  calling 
MINIT2  (once  only). 

2.  Matrix  data  is  stored  in  blank  common  // .  Since  blank  common  is  also  used 
for  storing  plot  points,  the  matrix  data  is  also  stored  in  sequential  file 
TAPE83  so  that  it  can  later  be  loaded  back  into  blank  common  when 
necessary. 

Upon  entry  blank  common  //  is  either  restored  with  old  matrix  data  from 
TAPE83  or  else  it  is  zeroed  out.  The  program  then  prompts  the  user  for  matrix 
data.  Subroutine  MR00T2  is  called  to  compute  the  determinant  polynomial.  The 
user  is  then  prompted  for  the  number  where  this  polynomial  is  to  be  stored. 


The  dimension  of  the  matrix  must  not  be  greater  than  30  x  30.  The  polynomi¬ 
al  elements  of  the  matrix  must  be  or  degree  4  or  less.  The  degree  of  the  computed 
polynomial  determinant  must  be  less  than  50. 


COMMON  blocks)  ACOM, PRNCTL , TFTEMP , // 

LCAP2  routines :  ENDL INE, HOLL I , MPRINT2, MR00T2, OPPRN, PPRN1 , RTPRN2, 
STRPY 


IDTERM 


I dent if i cat ion 

SUBROUTINE  IDTERM  -  Interactive  Input  Of  Matrix  Data  And  Calculation 

Of  Determinant  (New  Version) 

CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Interactive  input  of  matrix  data  and  calculation  of  determinant  with  auto- 
matic  substitution  of  the  forcing  vector  as  described  in  subroutine  DTERM. 

Usage 


CALL  IDTERM 

1.  Before  IDTERM  is  used,  the  matrix  parameters  must  be  initialized  by  calling 
MINIT2  (once  only) . 

2.  Matrix  data  is  stored  in  blank  common  // .  Since  blank  common  is  also  used 
for  storing  plot  points,  the  matrix  data  is  also  stored  in  sequential  file 
TAPE83  so  that  it  can  later  be  loaded  back  into  blank  common  when 
necessary. 

Method 

Upon  entry  blank  common  //  is  either  restored  with  old  matrix  data  from 
TAPE83  or  else  it  is  zeroed  out.  The  program  then  prompts  the  user  for  matrix  and 
forcing  vector  data.  Subroutine  MR00T2  is  called  to  compute  the  determinant  pol¬ 
ynomial.  The  user  is  then  prompted  for  the  number  where  this  polynomial  is  to  be 
stored. 

Restrictions 

The  dimension  of  the  matrix  must  not  be  greater  than  30  x  30.  The  polynomi¬ 
al  elements  of  the  matrix  must  be  or  degree  4  or  less.  The  degree  of  the  computed 
polynomial  determinant  must  be  less  than  50. 

Rgqui remegts 

COMMON  blocks)  ACOM,PRNCTL ,TFTEMP,// 

LCAP2  routines:  BPRINT2, ENDLINE, HOL LI, MPRINT2, MR00T2, OPPRN, PPRN1 , RTPRN2, 
STRPY 


ILCAP2 


SUBROUTINE  ILCAP2  -  Interactive  LCAP2  Executive  Subroutine 
CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Executive  subroutine  for  Interactive  LCAP2.  This  subroutine  is  to  be  called 
by  a  short  main  program. 

USftflS 

CALL  1LCAP2 


Method 

The  first  part  of  this  subroutine  connects  the  input  and  output  files  to 
the  terminal  and  initializes  the  program  for  interactive  use.  The  program  then 
prompts  the  user  for  the  LCAP2  operation  desired.  The  operation  entered  is  then 
read  and  the  appropriate  subroutines  called  to  perform  the  specified  operation. 

This  routine  may  also  be  entered  at  entry  IRECOV  by  a  direct  call  from  sub¬ 
routine  FETPY,  STRSTF,  STRNTF,  or  STRZTF  (bypassing  the  normal  returns)  when  an 
undefined  argument  for  an  LCAP2  operator  is  detected. 

Nhen  the  END  operator  is  specified  by  the  user  the  following  operations  are 
performed  before  the  program  is  terminated.  Three  words  are  written  to  file 
TAPE89  for  post  processing  of  plots  and  data  files  by  a  separate  INTERCOM  pro¬ 
gram.  The  terminel  is  then  disconnected  from  the  input  and  output  files. 

BtAMir—igntR 

COMMON  blocks*  AC0M,HEADDB, INTC0M,PL0T1 

LCAP2  routines)  HELP, IARG0, IARG1A, IARG1B, IARG2, INITO, INTXFM, LEXIT, 

MINIT2 


mm 


SUBROUTINE  INTXFM  -  Interactive  Driver  Routine  For  The  Transform  Operators 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 

Pacpggs 

Interactive  driver  routine  for  LCAP2  transformation  operators.  LCAP2 
operators  SWXFM,  SZXFM,  SWMRX,  SZMRX,  WZXFM,  ZWXFM,  ZVCNG,  WMRXFM,  ZMRXFM, 
WSXFM,  and  ZSXFM  are  processed  in  this  subroutine. 

Usage 

CALL  INTXFM 

1.  This  routine  is  called  by  ILCAP2. 

Method 

Prompting  for  arguments  of  the  LCAP2  operators  (transfer  function  number  or 
new  data)  is  done  in  this  subroutine.  The  appropriate  subroutine  is  then  called 
to  implement  the  operator.  The  user  is  then  prompted  for  the  number  where  the 
resultant  transfer  function  is  to  be  stored. 


COMMON  blocksi  ACOM, HEADDB, PRNCTL 

LCAP2  routines i  COEFF, IROOT, SWMRX, SWXFM, SZMRX, SZXFM, WMRXFM, WSXFM, WZXFM, 
ZMRXFM, ZSXFM, ZVCNG1 , ZWXFM 


IROOT 


SUBROUTINE  IROOT  -  Interactive  Input  Routine  For  Transfer  Function  Data  In 

Root  Form 

CDC  FORTRAN  4 

F.  P.  Fernandez  and  E.  A.  Lee 
Aerospace  Corporation 

Purpose 

Prompt  user  for  data  to  load  in  transfer  function  root  data. 

Usaas 

CALL  IROOT (INDX) 

INDX  output  -  Index  used  to  store  transfer  function  which  the  user 
entered  in  response  to  a  prompt 

1.  The  transfer  function  will  be  stored  as  an  s,  w  or  z  plane  transfer  func~ 
tion  as  determined  by  flag  PLN  of  COMMON/ACOM/ .  Set  PLN=1HS,  1HW  or  1HZ  for 
s,  w  or  z  plane,  respectively,  before  calling  this  subroutine. 

Method 

Program  will  prompt  the  user  for  transfer  function  root  data.  After  data 
entry,  the  program  will  print  out  the  transfer  function  and  ask  the  the  user  if 
the  data  is  correct.  If  not,  the  user  can  (1)  add  root  values,  (2)  delete  root 
values,  (3)  change  root  values  or  (4)  change  the  gain  value.  The  program  then 
prompts  the  user  for  the  number  where  this  transfer  function  is  to  be  stored. 
This  number  is  returned  to  the  calling  program  to  be  used,  if  necessary,  for 
further  processing  of  LCAP2  operators. 


The  number  of  roots  of  the  transfer  function  must  be  less  than  50. 


COMMON  blocks i  ACOM,HEADDB,TFTEMP,// 

LCAP2  routines >  FCNW1 , FCNW2, FETTFX, PR00T , PSYNTH, RTCMNT , RTEQU, STRTFX, 
XTRACT 
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SUBROUTINE  IROOTP  -  Interactive  Input  Routine  For  Polynomial  Data  In  Root  Form 
CDC  FORTRAN  4 

F.  P.  Fernandez  and  E.  A.  Lea 
Aerospace  Corporation 

Purpose 

Prompt  user  for  data  to  load  in  polynomial  roots. 

Usaoa 

CALL  IROOTP(INDX) 

INDX  output  -  Index  used  to  store  polynomial  which  the  user  entered 
in  response  to  a  prompt 

Method 

Program  will  prompt  the  user  for  polynomial  data.  After  data  entry*  tha 
program  will  print  out  tha  polynomial  and  ask  tha  user  if  tha  data  is  correct.  If 
not*  the  user  can  (1)  add  root  values*  (2)  delate  root  values*  (3)  change  root 
values  or  (4)  change  tha  gain  value.  Tha  program  than  prompts  the  user  for  the 
number  where  this  polynomial  is  to  be  stored.  This  number  is  returned  to  the 
calling  program  to  bo  used,  if  necessary*  for  further  processing  of  LCAP2  opera¬ 
tors. 

Btatrictigna 

The  number  of  roots  of  the  polynomial  must  be  lass  than  50. 

R«auirtm*nta> 

COMMON  blocks i  ACOM,HEADDB,TFTEMP,// 

LCAP2  routines!  FETPY * PR00T * PSYNTH, RTCMNT , STRPY * XTRACT 


SUBROUTINE  IRSTOR  -  Restore  Polynomial ,  Trensfer  Function  And  Hetrix  Dote 

For  Interective  LCAP2 

CDC  FORTRAN  4 

C.  L.  Hong  end  E.  A.  Lee 

Aerospace  Corporation 

Pucp.fl«.« 

Restore  data  from  a  previous  interactive  or  batch  job  for  a  restart  capa¬ 
bility  in  Interactive  LCAP2. 

Usage 


CALL  IRSTOR 

Method 

Reads  in  data  stored  on  TAPE30  end  copies  it  into  COMMON/SCMBLK/  and  the 
sequential  files  TAPE84,  TAPE85,  TAPE86,  TAPE87  and  TAPE83.  For  more  details 
sea  description  for  ISTORE. 

Restrictions 

File  TAPE30  must  be  attached  before  executing  LCAP2. 

Requirements 


COMMON  blocksi  ACOM,HEADDB, INTCOM.SCMBLK.TFPCNT,// 
LCAP2  routines!  BPRINT2, ENDLINE, MPRINT2,PYPRN1,TFPRN1 


Identification 


SUBROUTINE  ISTORE  -  Store  Polynomials  Transfer  Function  and  Matrix  Data 

For  Interactive  LCAP2 

CDC  FORTRAN  4 

C.  L.  Nong  and  E.  A.  Lee 

Aerospace  Corporation 

PurPRSfl 

Store  data  from  an  LCAP2  interactive  job  for  a  restart  capability.  This 
data  can  be  accessed  in  a  subsequent  interactive  or  batch  job  by  using  the 
RESTORE  operator. 

Usage 

CALL  ISTORE 

1.  The  routine  will  prompt  the  user  for  70  alphanumeric  characters  to  be  used 
to  identify  the  data  to  be  stored.  This  information  will  be  printed  out 
when  this  data  is  restored  in  a  subsequent  job. 

Bathed 

Data  will  be  saved  on  file  TAPE31 .  The  first  record  will  be  alphanumeric 
information  entered  by  the  user  in  response  to  a  prompt.  The  second  record  will 
be  information  from  COMMON/TFPCNT/  which  describes  the  number  of  polynomials  and 
transfer  functions  saved  on  various  files.  The  third  record  will  be  LCAP2 
parameters  from  HEAD(lOl)  through  HEAD(900)  of  COMMON/HEADDB/ . 

Polynomials  and  s*  w  and  z  plane  transfer  functions  with  LCAP2  indices  1 
through  5  are  stored  in  COMMON/SCMBLK/ .  These  polynomials  and  transfer 
functions*  regardless  if  they  have  been  used  by  the  user*  will  be  the  next  data 
copied  onto  file  TAPE31.  Next*  polynomials  from  file  TAPE84  will  be  copied  onto 
file  TAPE31.  Then  s>  w  and  z  plane  transfer  functions  from  files  TAPE85*  TAPE86 
and  TAPE87*  respectively*  will  be  copied  onto  file  TAPE31.  Finally*  matrix  data 
from  TAPE83  will  be  copied  onto  file  TAPE31 . 

Baauiragaois 


COMMON  blocks)  ACOM, HEADDB, INTCOM, SCMBLK, TFPCNT ,// 
LCAP2  routine*)  BPRINT2, ENDLINE, MPRINT2,PYPRN1 ,TFPRN1 


*tiue 


Identification 

SUBROUTINE  ITITLE  -  Interactive  Input  Routine  For  Entering  Title  On  Plots 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Interactive  input  routine  for  entering  title  on  plots.  Used  by  subroutine 
FPL0T1. 

Usage 


CALL  ITITLECHEAD) 

HEAD  output  -  Hollerith  array  (dimension  of  at  least  7  words) 

Method 

Terminal  will  prompt  the  user  for  one  line  of  alphanumeric  input  (70  chai — 
acters  or  less)  for  labeling  title  of  plots.  The  data  will  be  returned  in  array 
HEAD  in  COMMON/HEADDB/ . 

Requirements 

COMMON  blocks)  none 
LCAPZ  routines)  none 


SUBROUTINE  LEXIT  -  LCAP2  Exit  Routine 
CDC  FORTRAN  A 
E.  A.  Lea 

Aerospace  Corporation 

Purpose 

Exit  routina  with  call  to  plot  routina  to  "claar  out"  plot  buffar  bafora 
tarmi noting  program. 

Usage 

CALL  LEXIT 
Method 

Counter  NPLOTS  in  C0MM0N/PL0T1/  is  checked  to  sea  if  any  records  ware  writ¬ 
ten  to  the  hardcopy  file.  If  .NE.0»  subroutine  ENPLOT  is  called  before  exiting 
program  with  CALL  EXIT. 


Requirements 

COMMON  blocks i  PL0T1 
LCAP2  routines i  none 


hatroti 


Identification 

SUBROUTINE  MATR0T2  -  Compute  Determinant  Polynomial  Of  A  Matrix 

Using  A  User-Supplied  Function 

CDC  FORTRAN  4 
E.  A.  lee 

Aerospace  Corporation 
Purpose 

Compute  determinant  polynomial  of  a  matrix  with  polynomial  elements  using  a 
user-supplied  function. 

Usage 


CAL L  MATROTl ( P0LY1 , ROOT , AUXSUB , N , NRTS ) 

P0LY1  output  -  Polynomial  coefficient  array  (LCAP2  array) 

ROOT  output  -  Polynomial  root  array  (LCAP?  array) 

AUXSUB  input  -  Name  of  user-supplied  subroutine.  Must  be  declared  with 
an  EXTERNAL  statement  in  the  calling  program. 

N  input  -  Dimension  of  matrix 

NRTS  input  -  Max.  number  of  roots  to  be  found 

1;  If  the  user-supplied  subroutine  is  AUXM1,  then  this  subroutine  will  yield 
results  identical  to  subroutine  MR00T1 . 

2.  User-supplied  subroutine  can  be  written  so  that  the  dimension  of  the  matrix 
and  the  degree  of  the  polynomial  elements  are  different  than  those  of 
MR00T1 . 

tle.th.Qri 

Generalized  root  finding  subroutine  MULE  and  the  user-supplied  subroutine 
are  used  to  determine  the  roots  of  the  determinant.  As  part  of  the  iterative 
root  finding  procedure*  MULE  will  pass  a  root  iterant  to  the  user-supplied  sub¬ 
routine  which  will  then  evaluate  the  matrix  at  this  frequency. 

RQqvirtmQtrts 

COMMON  blocks!  MDET 1  * HEADDB , CMP OLY 

LCAP2  routines)  MULE, PEQUAl,PSYNTH, PZERO, RCLAS,RTPRNO,RZERO 


minito 


Identification 

SUBROUTINE  MINITO  -  Initialization  of  LCAP2  Matrix  Parameters 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 

Eiiceasa 

Initialization  of  LCAP2  matrix  parameters  used  for  evaluation  of  transfer 
function  by  Cramer's  method.  MINITO  is  to  be  used  only  for  the  batch  version  of 
LCAP2. 

Usage 

CALL  MINITO 

1.  This  routine  must  be  called  before  subroutine  MR00T1  or  DETRM  is  used. 

2.  Matrix  data  is  in  C0MM0N/MATRIX1/ . 


Hethfld 

The  matrix  data  in  COMMON/MATRIXl/  which  are  initialized  arei 


Parameter 

Initialized 

Value 

Description 

MATDIM 

30 

DIMENSION  of  square  matrices  MO, Ml, M2, M3, M4 

MXM 

1 

Dimension  of  matrices  (1-30) 

MDEG 

0 

Highest  degree  of  polynomial  element  (0-4) 

MO 

0 

Matrix  for  coefficients  of  sXXO 

Ml 

0 

Matrix  for  coefficients  of  sXXl 

M2 

0 

Matrix  for  coefficients  of  sXX2 

M3 

0 

Matrix  for  coefficients  of  sx*3 

M4 

0 

Matrix  for  coefficients  of  sXX4 

Unlike  MINIT2  (the  interactive  version  of  MINITO),  matrix  data  is  not  in 
blank  common,  which  can  be  over  written  by  plot  data  which  shares  blank  common. 
The  user  does  not  have  to  be  concerned  with  the  availability  of  this  data  once 
this  routine  is  entered. 

Requirements 


COMMON  blocks!  MATRIX1 , MDET1 
LCAP2  routines!  none 


HINIT2 


Identification 


SUBROUTINE  MINIT2  -  Initialization  of  LCAP2  Matrix  Parameters 
CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Initialization  of  LCAP2  matrix  parameters  used  for  evaluation  of  transfer 
function  by  Cramer's  method.  MINIT2  is  to  be  used  only  for  the  interactive  ver¬ 
sion  of  LCAP2. 


Usage 

CALL  MINIT2 

1.  This  routine  must  be  called  before  subroutine  MR00T2  or  IDETRM  is  used. 

2.  Matrix  data  is  in  blank  common  //. 


Method 

To  save  memory,  blank  common  //  is  shared  by  matrix  data  and  plot  data. 
The  matrix  data  in  blank  common  which  are  initialized  arei 


Parameter  Initialized  Description 
Value 


MATDIM 

MXM 

MDEG 

MO 

Ml 

M2 

M3 

M4 

NDIMA 

AMATRIX 


30  DIMENSION  of  square  matrices  M0,M1,M2..M3,M4 

1  Dimension  of  matrices  (1-30) 

0  Highest  degree  of  polynomial  element  (0-4) 

0  Matrix  for  coefficients  of  s**0 

0  Matrix  for  coefficients  of  sxxi 

0  Matrix  for  coefficients  of  s**2 

0  Matrix  for  coefficients  of  sXX3 

0  Matrix  for  coefficients  of  sXX4 

30  Dimension  of  square  matrix  AMATRIX 

0  Complex  matrix  used  to  evaluate  determinant 


After  initialization*  this  data  is  also  saved  on  sequential  file  TAPE83  so 
that  blank  common  can  be  restored  if  it  is  over-written  by  plot  data. 


Requirements 

COMMON  blocks)  // 
LCAP2  routines:  none 


HPRIHTI 


Identification 

SUBROUTINE  MPRINT1  -  Print  Out  Matrix  Data 
CDC  FORTRAN  4 
E.  A.  Lae 

Aerospace  Corporation 
Purpose 

Print  out  matrices  MO,  Ml,  M2,  MS  and  M4  which  describe  a  set  of  linear 
transformed  aquations  to  ba  used  for  evaluating  a  transfer  function  by  Cramer's 
method.  MPRINT1  is  to  ba  used  only  for  the  batch  version  of  LCAP2. 

Usage 


CALL  MPRINT1 


1.  Matrix  data  is  in  C0MM0N/MATRIX1/.  The  matrix  data  are  described  belowi 


Parameter 

MATDIM 

MXM 

MDEG 

MO 

Ml 

M2 

M3 

M4 

Method 


Description 

DIMENSION  of  square  matrices  MO, Ml, M2, M3, M4 
Dimension  of  matrices  (1-30) 

Highest  degree  of  polynomial  element  (0-4) 

Matrix  for  coefficients  of  s»*0 

Matrix  for  coefficients  of  s«*l 

Matrix  for  coefficients  of  s**2 

Matrix  for  coefficients  of  s**3 

Matrix  for  coefficients  of  s**4 


Only  the  non-zero  elements  of  the  matrices  are  printed  out. 


Requirements 


COMMON  blocks i  MATRIX1,PRNCTL 
LCAP2  routines i  none 


MPRINT2 


SUBROUTINE  MPRINT2  -  Print  Out  Matrix  Data 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Print  out  matrices  MO,  Ml#  M2#  M3  and  M4  which  describe  a  set  of  linear 
transformed  equations  to  be  used  for  evaluating  a  transfer  function  by  Cramer's 
method.  MPRINT2  is  to  be  used  only  for  the  interactive  version  of  LCAP2. 


Usage 


CALL  MPRINT2 

Matrix  data  is  in  blank  common  //.  Data  in  this  blank  common  used  for  the 
printout  are  described  below t 


Parameter 


Description 


MATDIM 

MXM 

MDEG 

MO 

Ml 

M2 

M3 

M4 


DIMENSION  of  square  matrices  MO, Ml, M2, M3, M4 
Dimension  of  matrices  (1-30) 

Highest  degree  of  polynomial  element  (0-4) 

Matrix  for  coefficients  of  s**0 

Matrix  for  coefficients  of  s*xl 

Matrix  for  coefficients  of  s**2 

Matrix  for  coefficients  of  s**3 

Matrix  for  coefficients  of  s**4 


Method 


Only  the  non-zero  elements  of  the  matrices  are  printed  out. 


COMMON  blockst  PRNCTL ,// 
LCAP2  routines!  none 


MR00T1 


SUBROUTINE  MROOT1  -  Compute  Determinant  Polynomial  Of  A  Matrix 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  polynomial  determinant  of  a  matrix  with  polynomial  elements 
defined  by> 

4  3  2  1 

MCs)  =  M  s  +  His  +  M2  s  +  Mi  s  +  Mi 

This  operator  is  used  as  one  of  the  steps  in  evaluating  a  transfer  function  via 
Cramer's  method.  MR00T1  is  called  by  DETRM  and  DTERM.  When  called  by  DTERM,  col¬ 
umn  substitution  with  the  forcing  vector  will  have  been  performed  already. 

isaas 

CALL  MR00T1 (P0LY1 , ROOT ) 

P0LY1  output  -  Polynomial  coefficient  array  (LCAP2  format) 

ROOT  output  -  Polynomial  root  array  (LCAP2  format) 

1.  Before  MR00T1  is  used,  matrix  parameters  must  first  be  initialized  by  call¬ 
ing  MINITO  (once  only). 

2.  Matrix  parameters  are  in  C0MM0N/MATRIX1/ .  They  are  to  be  set  before  MR00T1 
is  called.  These  parameters  are  defined  belowi 

Parameter  Preset  Description 

MXM  1  Dimension  of  matrices  (1-30) 

MDE6  0  Highest  degree  of  polynomial  element  (0-4) 

MO  0  Matrix  for  coefficients  of  s**0 

Ml  0  Matrix  for  coefficients  of  s**l 

M2  0  Matrix  for  coefficients  of  s*#2 

M3  0  Matrix  for  coefficients  of  s**3 

M4  0  Matrix  for  coefficients  of  s**4 

tLolhfid 

Generalized  root  finding  subroutine  MULE  and  auxiliary  subroutine  AUXM1 
are  used  to  determine  the  roots  of  the  determinant.  As  part  of  the  iterative 
root  finding  procedure,  MULE  will  supply  AUXM1  with  a  root  iterant  which  AUXM1 
will  then  use  to  evaluate  the  matrix 


COMMON  blocksi  CMPOLY , HEADDB , MATRIX1 , MDET1 > MPAR 

LCAP2  routines i  AUXM1 , AUXP, MULE, PEQUAL , PSYNTH, PZERO, RCLAS, RTPRNO , RZERO 


M800T2 


Idiniliisaiiaa 

SUBROUTINE  MR00T2  -  Compute  Dotorminant  Polynomial  Of  A  Matrix 
CDC  FORTRAN  4 
E.  A.  Laa 

Aarospaca  Corporation 
Purpose 

Computa  polynomial  determinant  of  a  matrix  with  polynomial  alemants 
dafinad  byi 

4  3  2  1 

(j(s)  =  Mi  »  +  Ml®  +  M2  s  +  Ml  *  +  Mil 

This  operator  is  used  as  one  of  the  steps  in  evaluating  a  transfer  function  via 
Cramer's  method.  MR00T2  is  called  by  IDETRM  and  IDTERM.  When  called  by  IDTERM 
column  substitution  with  the  forcing  vector  will  have  been  performed  already. 


Usage 

CALL  MR00T2(P0LY1 * ROOT) 


P0LY1  output  -  Polynomial  coefficient  array  (LCAP2  format) 

ROOT  output  -  Polynomial  root  array  ( LCAP2  format) 

1.  Before  MR00T2  is  used*  matrix  parameters  must  first  be  initialized  by  call 
ing  MINTI2  (once  only). 


2.  Matrix  parameters  are  in  blank  common  //.  They  are  to  be  set  before  MR00T2 
is  called.  These  parameters  are  defined  belowi 


Parameter  Preset 


Description 


MXM 

MDEO 

MO 

Ml 

M2 

M3 

M4 


1  Dimension  of  matrices  (1-30) 

0  Highest  degree  of  polynomial  element  (0-4) 

0  Matrix  for  coefficients  of  sxxo 

0  Matrix  for  coefficients  of  sxxl 

0  Matrix  for  coefficients  of  sxx2 

0  Matrix  for  coefficients  of  sXX3 

0  Matrix  for  coefficients  of  sXX4 


Method 

Generalized  root  finding  subroutine  MULE  and  auxiliary  subroutine  AUXM1 
are  used  to  determine  the  roots  of  the  determinant.  As  part  of  the  iterative 
root  finding  procedure*  MULE  will  supply  AUXM1  with  a  root  iterant  which  AUXM1 
will  then  use  to  evaluate  the  matrix 


4  3  2  1 

tJ(s)  =  Ms  +  Mis  +  M2s  +  Mi  s  +  H2 

for  s  =  root  iterant. 

The  complex  determinant  of  the  above  evaluated  matrix  is  then  computed  by 
subroutine  CXMTX1  and  returned  to  MULE.  The  evaluated  matrix  whose  determinant 
is  to  be  computed  by  CXMTX1  and  the  resultant  determinant  is  stored  in  blank 
common  // .  These  parameters  are  described  below> 


Parameter 


Description 


NR 

DET 

NDIMA 

AMATRIX 


input  Dimension  of  matrix 

output  Complex  determinant 

input  Row  dimension  of  AMATRIX 

input  Complex  array  of  dimension  NDIMA  x  NDIMA 


Restrictions 


The  dimension  of  the  matrix  must  not  be  greater  than  30  x  30.  The  polynomi¬ 
al  elements  of  the  matrix  must  be  degree  4  or  less.  The  computed  polynomial 
determinant  must  be  less  than  50. 


MR00T2  is  to  be  used  only  by  Interactive  LCAP2. 


Requirements 

COMMON  blocksi  CMPOLY, HEADDB, INTCOM.MPAR,// 

LCAP2  routines i  AUXM2 , AUXP, MPRINT2, MUL E, PEQUAL , PSYNTH, PZERO, RCLAS, RTPRNO, 
RZERO 
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HRXFM 


Identification 

SUBROUTINE  MRXFM  -  Multirate  Z  Plane  Transform  (In  Rational  Form)  by 

Sklansky's  Frequency  Decomposition  Method 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  multirate  z  transform,  in  rational  form,  by  Sklansky's  frequency 
decomposition  method. 

Usage 


CAL L  MRXFM( XROOT J , XROOTI , TSLOW, NRATIO ) 

XROOTJ  input  -  Complex  z  plane  transfer  function  root  array  (LCAPZ  format) 
of  input  at  faster  sampling  rate 

XROOTI  output  -  Complex  z  plane  transfer  function  root  array  (LCAPZ  format) 
of  output  at  the  slower  sampling  rate 
TSLOH  input  -  Sampling  period  of  slower  output  sampler 
NRATIO  input  -  Ratio  of  slower/input  sampling  periods 

Ufilhad 

Zeroes  of  the  function  defined  by  Sklansky's  frequency  decomposition  meth¬ 
od  are  found  by  using  the  generalized  root  finding  subroutine  MULE  and  auxiliary 
subroutine  AXXMRX.  To  improve  the  computational  accuracy,  the  calculations  are 
performed  in  the  zeta  plane  rather  than  in  the  z  plane.  (See  description  of  sub¬ 
routine  ZZETAXM  for  definition  of  the  zeta  plane) 

Btatristigna 

The  degree  of  the  transfer  functions  must  be  less  than  50. 

Riqyirmnta 

COMMON  blocks <  COMAXX,HEADDB, ITEST,TEMPRT 

LCAPZ  routines i  AXXMRN, EJKNI , EVLRRT , EVMRRT , MULE, RCLAS, RREQU, RTPRNO, 

XTRACT , ZETAZXM , ZZ  ETAXM 


MULE 


SUBROUTINE  MULE  -  General  Root  Finding  Subroutine 
COC  FORTRAN  4 
J.  F.  Holt 

Aerospace  Corporation 


Purpose 


To  determine  the  zeroes  of  any  analytic  function  F(Z)  using  complex  arith¬ 
metic.  Both  real  and  complex  roots  can  be  obtained. 


CALL  MULE(KN, N,JG,NP,NJG,NRT,MRT, MXC, MAXIT, JMAX, RXZ,NREV, MAK, 
+IMGZ, RTS, EP1 , EP2, EP3, EP4, EP5, ST1 , ST2, ST3, SKU, SKL , AUX) 


KN  input  -  No.  of  known  or  previously  computed  roots 

These  roots  must  be  stored  in  RTS(l)  -  RTS(KN) 

N  input  -  No.  of  roots  to  be  found  for  this  call  to  MULE 

JG  input  -  Initial  guess  option  for  the  user 

NP  input  -  output  flag.  If 

=2,  Suppress  all  internal  printing 
=1 ,  Print  only  the  final  iteration  of  each  root 
=0,  Print  all  iterants 
NJG  input  -  Complex  conjugate  option.  If 

=0,  Accepts  conjugate  (if  complex)  as  root 
= 1 ,  Do  not  use  conjugate  as  next  guess 

NRT  output  -  No.  or  roots  which  actually  converged  (see  Ref.  3  for  criteria) 
MRT  output  -  Approx,  no.  of  equal  or  close  roots 
MXC  output  -  No.  of  roots  which  iterated  MAXIT  times 
MAXIT  input  -  Max.  number  of  iterations  allowed  per  root 

JMAX  input  -  After  JMAX  iterations,  if  conv.  . LE.  .01  (rel  conv.), 

use  EP2  (if  Z(JMAX)  .LE.  1)  as  new  guess.  Otherwise, 
use  Aitken's  delta  sq.  to  compute  new  guess. 

RXZ  input  -  Scale  factor  for  special  searching  procedure  after 
JMAX  iterations  have  occurred. 

NREV  input  -  Option  to  reverse  root(KN+l  thru  KN+n)  and  repeat  iteration. 

=1  If  (MXC)  non-zero,  reverse  roots  and  repeat  solution 
=0  Exit  from  subroutine  after  N  roots  obtained 
MAK  input  -  After  JMAX  iterations  perform  Aitken  delta  sq.  extrapolation. 

every  MAK  iterations.  Recommend  MAK=6  or  more. 

IMGZ  input  -  If  .EQ.  0,  set  imag.  part  of  root  to  zero 

RTS  input  -  Root  array  for  guesses  if  used 

output  -  Complex  array  of  roots  found  (dimension  of  at  least  KN+N) 

EP1  input  -  Relative  error  criterion 


EP2  input  -  Extremely  small  guess  (abs.  value)  to  be  used  after  JMAX 
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iterations  if  current  iter,  less  than  1. 

EP3  input  -  Criteria  for  perturbing  initial  guesses 

EP4  input  -  Criteria  for  determining  true  zero  for  complex  parts 

EP5  input  -  Criteria  for  determining  absolute  zero 

ST1  input  -  Standard  starting  value 

ST2  input  -  Standard  starting  value 

ST3  input  -  Standard  starting  value 

SKU  input  -  Scalar  (abs.  value)  to  prevent  overflow  of  F(Z) 

SKL  input  -  Scalar  (abs.  value)  to  prevent  underflow  of  F(z) 

AUX  input  -  Function  evaluation  subroutine  (CALL  AUX(RT,FRT,SO) 

where  RT=current  iterant,  FRT=F(RT),  SC=scalar  exponent 

1.  See  listing  of  HULE  for  a  more  complete  description  of  the  arguments. 

Method 

Uses  an  improved  version  of  Muller's  method  which  has  been  combined  with 
AITKEN's  delta  square  extrapolation,  an  automatic  scaling  procedure  and  a  simple 
but  efficient  searching  technique.  See  Ref.  3  for  a  more  complete  description. 


The  user  must  provide  an  auxiliary  subroutine  (see  AUX)  which  evaluates  the 
function  F(Zi)  given  iterant  Zi .  The  name  of  the  auxiliary  subroutine  must  be 
defined  as  an  argument  in  the  calling  sequence  and  also  through  the  use  of  the 
EXTERNAL  statement  in  the  calling  program  or  subroutine. 


COMMON  blocks>  none 
LCAP2  routines!  none 
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SUBROUTINE  NORM  -  Normalize  Transfer  Function 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Normalize  the  coefficients  of  a  transfer  function. 


Usage 


CALL  NORM( PNI , PDI , RTNI , RTDI , INI , IDI ) 


PNI 

input 

output 

PDI 

input 

output 

RTNI 

input 

output 

RTDI 

input 

output 

INI 

input 

IDI 

input 

1. 

Norma lizat 
NORM  is  ca 

Restrictions 

Polynomial  coefficient  array  (LCAP2  format)  of  numerator 
Normalized  polynomial  coefficient  array  (LCAP2  format)  of 
numerator 

Polynomial  coefficient  array  (LCAP2  format)  of  denominator 
Normalized  polynomial  coefficient  array  (LCAP2  format)  of 
denominator 

Complex  polynomial  root  array  (LCAP2  format)  of  numerator 
Normalized  complex  polynomial  root  array  (LCAP2  format)  of 
numerator 

Complex  polynomial  root  array  CLCAP2  format)  of  denominator 


Normalized  complex  polynomial  root  array  (LCAP2  format)  of 
denominator 

-0  if  numerator  coefficients  and  roots  are  available 
-1  if  only  numerator  coefficients  are  available 
=0  if  denominator  coefficients  and  roots  are  available 
=1  if  only  denominator  coefficients  are  available 


They  are  to  be  set  before 


The  degree  of  the  transfer  function  must  be  less  than  50. 

RqqwLcgmeots 


COMMON  blocks:  INTCOM, HEADDB 
LCAP2  routines:  none 


OPMESO 


Identification 

SUBROUTINE  OPMESG  -  Operation  Message 
CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 

PMrp.ff.se 

Print  out  summary  of  LCAP2  operations.  Message  supplied  as  a  Hollerith 
array  in  the  calling  sequence. 

Usage 


CALL  OPMESG(INTFLG,MESAGE, NLINE) 

INTFLG  input  -  .EQ.O  for  batch  version,  .NE.O  for  interactive  version 
MESAGE  input  -  Hollerith  array  of  dimension  n*5  where  n  must  be  equal 
or  greater  than  the  value  of  NLINE 
NLINE  input  -  Number  of  lines  of  message 

1.  For  the  batch  version  the  message  will  be  enclosed  by  a  rectangular  box, 
i  .e. , 

kxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X  X 

X  X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

2.  For  the  interactive  version  the  message  will  be  preceded  by  an 
arrow,  i.e., 

- > 

3.  If  PRNFLG3  (preset=l)  of  COMMON/PRNCTL/  .EQ.O,  printout  is  suppressed. 

ReaMicfiments 

COMMON  blocks!  PRNCTL 
LCAP2  routines!  none 


PPP3N 


Identification 


SUBROUTINE  OPPRN  -  Operand  Message 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 


Purpose 

Print  out  summary  of  LCAP2  operations  using  tables. 


Usage 


CALL  OPPRN ( I , J, K, ICODE, JCODE, KCODE, IOPT ,  I PLANE, IAR6) 


I 

input 

-  First 

argument,  i=I 

J 

input 

-  Second  argument,  j=J 

K 

input 

-  Third 

argument,  k=K 

ICODE 

input 

-  =1 

POLY(i)  = 

=3 

ROOT ( i  )  = 

(the  character  -  below  designates  s,  w 

as  determined  by  the  value  of  IPLANE) 

=5 

-PTF(i)= 

=6  - 

ROOT(i)  = 

JCODE 

input 

-  =i 

POLY(j) 

=  3 

ROOT(j) 

=4 

ROOTS  OF 

=5 

PSYNTHCROOTCj)) 

=6 

-PTF( j) 

=7 

-ROOT ( j ) 

=8 

PSYNTH(-ROOT ( J ) ) 

=  9 

(POLYN/POLYD) 

=  10 

(R00TN/R00TD) 

=  11 

NUMERATOR  OF 

=  12 

DENOMINATOR  OF 

=  13 

WZXFM  OF 

=  14 

ZWXFM  OF 

=  15 

NORMALIZATION  OF 

=  16 

SWXFM  OF 

=  17 

SZXFM  OF 

=  18 

ZMRXFM  OF 

=  19 

WMRXFM  OF 

IOPT 

input 

-  =1 

+ 

=  2 

- 

=  3 

X 

=4 

/ 

=  0 

(blank) 

127 


y. 
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COMMON  blocksi  INTCOM, PRNCTL 
LCAP2  routines!  HOLLI 


I 


SUBROUTINE  OSCALE  -  Optimum  Plot  Scale 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 


Purpose 

Compute  optimum  plot  scale  based  upon  multiple  of  2.,  2.5,  5.  or  10.  units 
per  inch. 


Usage 


YDELTA 

YLNTH 


CALL  OSCALE(YMIN,YMAX, YDELTA, YLNTH) 

input  -  Minimum  value  of  data  to  be  plotted 
output  -  Minimum  value  of  optimum  scale 
input  -  Maximum  value  of  data  to  be  plotted 
output  -  Maximum  value  of  optimum  scale 
\  input  -  Length  of  plot  scale 
input  -  Full  scale  in  inches 


YMAX  must  be  .GE.  YMIN. 


COMMON  blocksi  none 
LCAP2  routines!  none 


SUBROUTINE  PACK  -  Pack  Root  Information  Into  Word 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Pack  root  information  into  the  real  part  of  a  complex  variable.  The  first 
word  of  a  complex  root  array  (LCAP2  format)  contains  this  packed  information. 

Usage 

CALL  PACKCROOT ,  NUM, ICOM, IR, IZ) 

ROOT  input  -  Complex  variable 

output  -  Complex  variable  with  real  part  containing  packed 
root  information  (imaginary  part  unchanged) 

NUM  input  -  Total  Number  of  roots 

ICOM  input  -  Number  of  complex  roots 

IR  input  ~  Number  of  real  roots  not  at  the  origin 

IZ  input  -  Number  of  roots  at  the  origin 

H<rth9.d 

The  first  word  of  a  complex  array,  in  LCAPZ  format,  is  used  to  store  infor¬ 
mation  characterizing  a  polynomial.  The  real  part  of  this  word  is  packed  as>  bit 
1  is  the  unit  digit,  bit  2  is  the  tens  digit,  ..  etc. 

Decimal  Digit  Description 

1,2  Total  number  of  roots 

3,4  Number  of  complex  roots  (an  even  number) 

5,6  Number  of  real  roots  not  at  the  origin 

7,8  Number  of  roots  at  the  origin 

Examples  NUM  3  8 
ICON3  4 
IR  3  3 
IZ  3  1 

CALL  PACK(R00T, NUM, ICOM, IR,IZ) 

would  yield,  value  of  REAL(ROOTd))  =  103048 

The  imaginary  part  of  the  first  word  of  a  complex  root  array  in  LCAP2  for¬ 
mat  is  the  low  order  non-zero  coefficient  of  the  polynomial.  This  value  is  not 
affected  by  this  subroutine. 


SUBROUTINE  PAOD  -  LCAP2  Operator,  Polynomial  Add 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Add  two  polynomials  using  LCAP2  indices. 

Usaae 

CALL  PADD(I, J,K) 


I  input  -  Index  of  resultant  polynomial  sum 

J  input  -  Index  of  first  polynomial  to  be  added 

K  input  -  Index  of  second  polynomial  to  be  added 

Restrictions 

The  degree  of  the  polynomials  must  be  less  than  50. 

Requirements 

COMMON  blocks i  PRNCTL , TFTEMP 

LCAP2  routines i  ADDP, ENDLINE, FETPY, OPPRN, PR00T , PYPRN1 , PYPRN4 , STRPY 


SUBROUTINE  PCHEK  -  Polynomial  Check  For  Extraneous  Coefficients 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Check  polynomial  coefficient  array  to  see  if  the  degree  is  between  0  an 
49.  If  it  is  not,  zero  out  all  elements  of  the  array. 

Also  zero  out  undefined  coefficients  of  the  array  which  correspond  to  coef 
ficients  larger  than  the  degree  of  the  polynomial. 

Usage 


CALL  PCHEK(P) 

P  input  -  Polynomial  coefficient  array  (LCAP2  format) 

output  -  Polynomial  coefficient  array  (LCAP2  format)  with  undefined 
coefficients  set  to  zero. 


Requirements 


COMMON  blocks:  none 
LCAP2  routines:  PZERO 


SUBROUTINE  PEQU  -  LCAP2  Operator*  Polynomial  Equal 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Equate  polynomials  using  LCAP2  indices. 


Usage 


CALL  PEQU( I  * J ) 

I  input  -  Index  of  resultant  polynomial 
J  input  -  Index  of  polynomial  to  be  equated  with 

Restrictions 

The  degree  of  the  polynomials  must  be  less  than  50. 
Requirements 


COMMON  blocks.  TFTEMP 

LCAP2  routines .  ENDLINE, FETPY, OPPRN, PEQUAL , PYPRN1 , PYPRN4, RTEQU, STRPY 


PE&UAL 


Identification 

SUBROUTINE  PEQUAL  -  Equate  Polynomial  Coefficient  Arrays 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Equate  polynomials  in  coefficient  form. 


Usage 


CALL  PEQUALCP1,P2) 

PI  input  -  Polynomial  coefficient  array  (LCAP2  format) 
P2  output  -  Polynomial  coefficient  array  (LCAP2  format) 

Restrictions 

The  degree  of  the  polynomials  must  be  less  than  50. 
Requirements 


COMMON  blocks)  none 
LCAP2  routines)  none 


! 

PL  DC 

Ldflntifisatifln 

SUBROUTINE  PLDC  -  LCAP2  Operator,  Polynomial  Load  In  Coefficient  Form 
CDC  FORTRAN  4 
E.  A.  Lee 

|  Aerospace  Corporation 

t  Purpose 

i 

j 

Load  coefficients  into  polynomial  coefficient  array,  POLYi. 

|  Usage 

CALL  PLDC(I) 

I  input  -  Index  where  polynomial  is  to  be  stored 

1.  Polynomial  coefficients  are  entered  with  polynomial  array  POLY  (LCAP2  foi — 
mat)  which  are  in  COMMON/HEADDB/ .  They  are  to  be  set  before  PLDC  is  called. 

2.  The  calling  program  must  include  COMMON/HEADDB/  and  the  appropriate  DIMEN¬ 
SION  and  EQUIVALENCE  statements  for  POLY. 

3.  The  roots  of  POLYi  will  not  be  automatically  computed.  If  this  is  desired, 
follow  this  operation  with  the  operator  PRTSCI). 

Rea-tristivos 

The  degree  of  the  polynomials  must  be  less  than  50. 

RsqMiremQnte 

COMMON  blocks i  INTCOM, HEADDB, TFTEMP 

LCAP2  routinesi  ENDLINE, OPMESG, PEQUAl , PPRNl , PYPRN4, STRPY 
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ELE8 


Identification 

SUBROUTINE  PLDR  -  LCAP2  Operator,  Polynomial  Load  In  Root  Form 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
P.MCPffSg 

Load  roots  in  polynomial  root  array,  ROOT.  After  the  roots  have  been 
loaded,  the  coefficients  of  the  polynomial  are  computed  and  stored  in  the  poly¬ 
nomial  coefficient  array  POLYi . 

Usage 


CALL  PLDR(I) 

I  input  -  Index  where  polynomial  is  to  be  stored 

1.  Polynomial  roots  are  entered  with  polynomial  root  array  ROOT  (LCAP2  format) 
which  is  in  COMMON/HEADDB/ .  They  are  to  be  set  before  PLDR  is  called. 

2.  The  calling  program  must  include  COMMON/HEADDB/  and  the  appropriate  DIMEN¬ 
SION  and  EQUIVALENCE  statements  for  ROOT. 

Ssstrictjgns 

The  degree  of  the  polynomials  must  be  less  than  50. 

Esaui cements 

COMMON  blocks  1  INTCOM, HEADDB, TFTEMP 

LCAP2  routines)  ENDLINE, OPMESG, PSYNTH, PYPRN4, RTEQU, RTPRN2, STRPY 


W 


& 


vo 
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SUBROUTINE  PLQ  -  Synthesize  Polynomial  From  Lags  and  Quadratics 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Synthesize  or  compute  polynomial  from  a  product  of  first  order  lags  and 
quadratics. 


Usage 


CALL  PLQ(NTAU,TAU, NQUAD, OMEGA, ZETA, POLY) 


NTAU 

input 

TAU 

input 

NQUAD 

input 

'.N 

OMEGA 

input 

H 

ZETA 

input 

POLY 

output 

the  value  of  NTAU) 

Number  of  quadratic  terms 
Array  of  quadratic  frequencit 
at  least  the  value  of  NQUAD) 
Array  of  quadratic  damping  cc 
at  least  the  value  of  NQUAD) 


The  degree  of  the  polynomial  formed  must  be  less  than  50. 


COMMON  blocks)  none 
LCAP2  routines)  PMULT, PZERO 
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SUBROUTINE  PMULT  -  Polynomial  Multiply  (Coefficient  Form) 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Multiply  two  polynomials  in  coefficient  form. 

Usage 

CALL  PMULT(A,B,C) 

A  input  -  Polynomial  coefficient  array  (LCAP2  format) 

B  input  -  Polynomial  coefficient  array  (LCAP2  format) 

C  output  -  Polynomial  coefficient  array  (LCAP2  format)  of  product 

Method 

Double  precisian  is  used  for  the  intermediate  calculations. 


Restrictions 

The  degree  of  the  polynomials  must  be  less  than  50. 

Requirements 

COMMON  blocks)  none 
LCAP2  routines)  none 


EMEI 


Identification 

SUBROUTINE  PMPY  -  LCAP2  Operator,  Polynomial  Multiply 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 

Purpose 

Multiply  two  polynomials  using  LCAP2  indices. 


Usage 

CALL  PMPY(I, J,K) 

I  input  -  Index  of  resultant  polynomial  product 
J  input  -  Index  of  polynomial  multiplicand 

K  input  -  Index  of  polynomial  multiplier 

Method 

If  only  the  coefficients  of  the  j-th  and  k-th  polynomials  are  available, 
the  product  is  computed  by  multiplication  of  the  coefficients.  If  the  roots  of 
the  j-th  and  k-th  polynomials  are  available,  the  product  is  computed  by  combin¬ 
ing  the  roots.  The  coefficients  of  the  product  are  then  formed  from  these  roots. 

RgsirictjjQng 

The  degree  of  the  polynomials  must  be  less  than  50. 

Requirements 

COMMON  blocks.  TFTEMP 

LCAP2  routines i  ENDLINE, FETPY , OPPRN , PMULT , PSYNTH , PYPRN1 , PYPRN4 , RTMPY, 
STRPY 
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SUBROUTINE  PPADD  -  Transfer  Function  Addition  (Coefficient  Form) 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Add  two  transfer  functions*  in  coefficient  form*  by  rationalization. 


Usage 


CALL  PPADD(R1,R2,R3) 

R1  input  -  Transfer  function  coefficient  array  (LCAP2  format) 

R2  input  -  Transfer  function  coefficient  array  (LCAP2  format) 

R3  output  -  Transfer  function  coefficient  array  (LCAP2  format)  of  sum 

Method 

After  rationalization  is  completed*  a  check  is  made  to  determine  if  there 
are  any  common  roots  at  the  origin  between  the  numerator  and  the  denominator.  If 
there  are  any,  they  are  cancelled. 

Restrictions 

The  degree  of  the  transfer  functions  must  be  less  than  50. 

Requirements 


COMMON  blocks i  HEADDB 

LCAP2  routinesi  ADDP,  PEQUAL , PMULT , SUBP 


PPEQU 


COMMON  blocks)  none 
LCAP2  routines:  none 
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PPMPY 

Identification 

SUBROUTINE  PPMPY  -  Multiply  Two  Transfer  Functions  (Coefficient  Form) 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Multiply  two  transfer  functions  in  coefficient  form. 


US.C-3Q 


CALL  PPMPYCA, B»C) 

A  input  -  Transfer  function  coefficient  array  (LCAP2  format) 

B  input  -  Transfer  function  coefficient  array  (LCAP2  format) 

C  output  -  Transfer  function  coefficient  array  (LCAP2  format)  of  product 

Method 

Two  separate  calls  to  subroutine  PMULT  are  used  to  compute  the  numerator 
and  denominator. 

Restrictions 

The  degree  of  the  transfer  functions  must  be  less  than  50. 

Requirements 


COMMON  blocks i  none 
LCAP2  routines i  PMULT 


PPRINT 


Identification 

SUBROUTINE  PPRINT  -  Print  Out  Polynomial  Coefficients  With  Integer 

Identifier 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Print  out  polynomial  coefficients  with  integer  identifier. 


Usage 


CALL  PPRINTCPOUT , IDENT) 

POUT  input  -  Polynomial  coefficient  array  (LCAP2  format) 

IDENT  input  -  Identifier  (.GT.O)  used  for  labeling  printout. 

Method 

Coefficients  are  printed  out  in  ascending  order. 
Restrictions 

The  degree  of  the  polynomial  must  be  less  than  50. 

Requirements 


COMMON  blocksi  none 
LCAP2  routines!  none 


PERM 


PPRN1 


Identification 

SUBROUTINE  PPRN1  -  Print  Out  Polynomial  Coefficient  Array 
COC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Print  out  polynomial  coefficient  array  with  identifiers  using  tables 


Usage 

CALL  PPRN1 ( I  FLAG, POLY, I DENT , IPLANE) 


IFLAG  input 


POLY  input 
IDENT  input 
IPLANE  input 


=0  No  heading 
=1  DEGREE  OF  POLY(I)  IS 
=2  DEGREE  OF  POLY  is 
=3  DEGREE  OF  NUMERATOR  OF  -PTF(I)  IS 
DEGREE  OF  DENOMINATOR  OF  -PTF(I)  IS 
(the  character  -  above  is  s,  w  or  z  as 
determined  by  the  value  of  IPLANE) 

Polynomial  coefficient  array  (LCAP2  format) 
Identifier  (0-99)  used  for  labeling  printout 
=0  for  s  plane,  =-l  for  w  plane,  =1  for  z  plane 


BflqMirenggig 


COMMON  blocks  I  none 
LCAP2  routines)  HOLLI 


SUBROUTINE  PPSUB  -  Transfer  Function  Subtraction  (Coefficient  Form) 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Subtract  two  transfer  functions*  in  coefficient  form*  by  rationalization . 


Usage 


CALL  PPSUB(R1,R2*R3) 

R1  input  -  Transfer  function  coefficient  array  (LCAP2  format) 
(minuend) 

R2  input  -  Transfer  function  coefficient  array  (LCAP2  format) 
(subtrahend) 

R3  output  -  Transfer  function  coefficient  array  (LCAP2  format)  of 
difference 

Method 


After  rationalization  is  completed*  a  check  is  made  to  determine  if  there 
are  any  common  roots  at  the  origin  between  the  numerator  and  the  denominator.  If 
there  are  any*  they  are  cancelled. 

The  code  for  this  routine  is  in  subroutine  PPADD. 

Restrictions 

The  degree  of  the  transfer  functions  must  be  less  than  50. 

Requirements 


COMMON  blocks i  HEAODB 

LCAP2  routinesi  ADDP , PEQUAL * PMULT , SUBP 


EEZEEfi 


Identification 

SUBROUTINE  PPZERO  -  Zero  Out  Transfer  Function  Coefficient  Array 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
EUTfiogfl 

Zero  out  polynomial  coefficient  array. 


Usage 


CALL  PPZERO(P) 

P  input  -  Transfer  function  coefficient  array  (LCAP2  format) 

output  -  Transfer  function  coefficient  array  (LCAP2  format)  zeroed  out 

Method 

The  code  for  this  routine  is  in  subroutine  PZERO. 

Requirements 

COMMON  blocks:  none 
LCAP2  routines:  none 


SUBROUTINE  PROOT  -  Polynomial  Root  Finder 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Find  roots  of  a  polynomial. 

Usage 

CALL  PROOT C POLY , ROOT) 

POLY  input  -  Polynomial  coefficient  array  (LCAP2  format) 

ROOT  output  -  Complex  polynomial  root  array  (LCAP2  format) 

Method 

Generalized  root  finding  subroutine  MULE  and  auxiliary  subroutine  AUXP  are 
used  to  determine  the  roots.  Before  MULE  is  called  to  compute  the  roots  of  the 
polynomial,  array  POLY  must  first  be  copied  into  POLYC  of  COMMON/CMPOLY/  so  that 
MULE  and  AUXP  has  the  proper  interface. 

Restrictions 

The  degree  of  the  polynomial  must  be  less  than  50. 

Requirements 

COMMON  blocks:  CMPOLY, HEADDB 

LCAP2  routines:  AUXP, MULE, PEQUAl , PPRN1 , RCLAS, RTPRNO, RZERO 
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►y. 


Identification 

SUBROUTINE  PSUB  -  LCAP2  Operator,  Polynomial  Subtract 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Subtract  two  polynomials  using  LCAP2  indices. 


Usage 


CALL  PSUB( I , J , K) 

I  input  -  Index  of  resultant  polynomial  difference 

J  input  -  Index  of  first  polynomial  (minuend) 

K  input  -  Index  of  second  polynomial  (subtrahend) 

Restrictions 

The  degree  of  the  polynomial  must  be  less  than  50. 
Requirements 


COMMON  blocks.  TFTEMP 

LCAP2  routines.  ENDLINE, FETPY, OPPRN, PR00T, PYPRN1 , PYPRN4, STRPY 


ESYM1M 


Identification 

SUBROUTINE  PSYNTH  -  Synthesize  Polynomial  Coefficients  From  The  Roots 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Synthesize  or  compute  the  coefficients  of  a  polynomial  from  its  roots. 

Usage 

CALL  PSYNTHt ROOT , POLY ) 


PYPRN1 


Identification 

SUBROUTINE  PYPRN1  -  Print  Out  Polynomial  Coefficients  and  Roots 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Print  out  polynomial  coefficients  and  roots  (if  available)  under  control  of 
PRNFLG1. 

Usage 

CALL  PYPRNKI, POLY, ROOT,  IN) 

I  input  -  Identifier  (0-99)  used  for  labeling  printout 

POLY  input  -  Polynomial  coefficient  array  (LCAP2  format) 

ROOT  input  -  Complex  polynomial  root  array  (LCAP2  format) 

IN  input  -  =1  for  coefficient  form  only 

=0  for  coefficient  and  root  form 

1.  If  PRNFLG1  (preset=l)  in  COMMON/PRNCTL/  . EQ.O,  printout  is  suppressed. 
Method 

Uses  subroutine  RTPRN2  to  print  out  the  roots  and  subroutine  PPRN1  to  print 
out  the  coefficients. 

Restrictions 

The  degree  of  the  polynomial  must  be  less  than  50. 


Regui rements 


COMMON  blocks:  PRNCTL 
LCAP2  routines:  none 


SUBROUTINE  PYPRN4  -  Print  Out  Polynomial  Coefficients  and  Roots 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Print  out  polynomial  coefficients  and  roots  (if  available)  under  control  of 
PRNFLG4 . 
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PZERO 


Identification 

SUBROUTINE  PZERO  -  Zero  Out  Polynomial  Coefficient  Array 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Zero  out  polynomial  coefficient  array. 


Usage 


CALL  PZERO(P) 

P  input  -  Polynomial  coefficient  array  (LCAP2  format) 

output  -  Polynomial  coefficient  array  CLCAP2  format)  zeroed  out 

Requirements 

COMMON  blocks:  none 
LCAP2  routines:  none 
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RCLAS 


Identification 

SUBROUTINE  RCLAS  -  Classify  Polynomial  Root  Array 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Classify  polynomial  roots  by  complex  roots,  non-zero  real  roots  and  zero 
roots. 

Vsaaa 

CALL  RCLAS (ROOTS, ICON, IR, IZ) 

ROOTS  input  -  Complex  polynomial  root  array  (LCAP2  format) 

output  -  Complex  polynomial  root  array  (LCAP2  format)  with 

roots  classified 

ICON  output  -  Number  of  complex  roots  found  (an  even  number) 

IR  output  -  Number  of  non-zero  real  roots  found 

IZ  output  -  Number  of  zero  roots  (at  the  origin) 

1.  The  parameters  ERCNJ,  ERCX  and  ERCZ  (preset=l . E-4,  1 . E4  and  1.E5,  respec¬ 
tively)  used  in  the  classification  of  the  roots  are  in  COMMON/HEADDB/ . 

2.  The  real  part  of  ROOTS(l)  is  a  packed  word  containing  (1)  total  number  of 
roots,  (2)  number  of  complex  roots,  (3)  number  of  non-zero  real  roots  and 
(4)  number  of  zero  roots.  See  description  of  XTRACT  for  details. 

3.  If  PRN3  (preset=0)  of  COMNON/HEADDB/  .NE.O,  diagnostic  printout  will  be 
produced . 

ftethad 

1.  A  root  is  considered  complex  if  ABS( real/imag) . LT . ERCX  for  imag.NE.O. 

2.  If  imag.NE.O  and  ABS(real/imag)  .GT.  ERCX,  imag  part  will  be  set  to  zero. 

3.  If  real. NE.O  and  ABSIimag/real )  .GT.ERCX,  real  part  will  be  set  to  zero. 

4.  Each  pair  of  complex  roots  is  checked  to  see  if  the  roots  are  conjugates. 

They  are  conjugated  if  the  following  are  true: 

S9RT((REAL(R00TS(I))-REAL(R00TS(I+1)))**2  +  ( AIMAG( ROOTS ( I ) ) 

+  AIMAG(ROOTS( 1+1 ) ) )X*2) . LE . ERCNJ 

5.  A  root  is  considered  to  be  zero  if  its  absolute  value  is  .LT.ERCZ. 
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SUBROUTINE  REMARKi  -  Print  Out  Remarks,  (i=l,5) 

C DC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Single  FORTRAN  statement  for  printing  out  Hollerith  data. 

Usage 

CALL  REMARKi (A) 

A  input  -  Hollerith  data  with  format  10H...  if  i=l 

20H. . .  if  i =2 
30H. . .  if  i=3 
40H . . .  if  i=4 
50H. . .  if  i=5 

1.  Example!  CALL  REMARK2(20HTHIS  IS  AN  EXAMPLE  )  will  print  out, 
THIS  IS  AN  EXAMPLE 


COMMON  blocksi  none 
LCAP2  routines!  none 


SUBROUTINE  RESDU  -  Residues  For  Partial  Fraction  Expansion 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  residues  for  partial  fraction  expansion. 


Usage 


CALL  RESDU(MUI,IPCOM,IPR,IPZ,QROT,PROT, GAMMA, LAMBDA, XKRL) 


MUI 

input 

IPCOM 

input 

IPR 

input 

IPZ 

input 

QROT 

input 

PROT 

input 

GAMMA 

output 

LAMBDA 

output 

XKRL 

input 

Restrictions 

Number  of  poles  at  the  origin 

Number  of  complex  poles  (an  even  number) 

Number  of  real  (non-zero)  poles 
Number  of  poles  at  the  origin 

Complex  polynomial  root  array  (LCAP2  format)  for  num. 
Complex  polynomial  root  array  (LCAP2  format)  for  denom. 
Complex  array  of  residues  for  the  poles  not  at  the  origin 
Complex  array  of  residues  for  the  poles  at  the  origin 
Root  locus  gain 


The  degree  of  the  transfer  function  must  be  less  than  50. 

The  number  of  non-zero  poles  must  not  be  greater  than  the  order  of  the 
numerator. 

No  multiple  poles  are  allowed  except  for  those  at  the  origin.  Multiple 
poles  not  at  the  origin  can  be  represented  by  distinct  poles  displaced  from  each 
other  by  a  small  amount. 

The  number  of  multiple  poles  at  the  origin  must  be  5  or  less. 

Requirement? 


COMMON  blocks!  HEADDB 
LCAP2  routines!  none 


RESTORE 


SUBROUTINE  RESTORE  -  Restore  Polynomial,  Transfer  Function  And  Matrix  Data 

CDC  FORTRAN  4 

C.  L.  Hong  and  E.  A.  Lee 

Aerospace  Corporation 

Purpose 

Restore  polynomial,  transfer  function  and  matrix  data  from  a  previous  batch 
or  interactive  job  for  a  restart  capability  in  Batch  LCAP2. 

Usage 

CALL  RESTORECIPRNFG) 

IPRNFG  iiput  -  =0  for  no  printout  of  restored  data 
Method 

Reads  in  data  stored  on  TAPE30  and  copies  it  into  COMMON/SCMBLK/  and  the 
sequential  files  TAPE84,  TAPE85,  TAPE86,  TAPE87  and  TAPE83.  For  more  details 
see  description  for  STORE. 


File  type  for  TAPE30  must  be  declared  with  'FILE,TAPE30, BT=I . *  File  TAPE30 
must  be  attached  before  executing  LCAP2. 


COMMON  blocks .  ACOM, HEADDB, PRNCTL , MATRIX1 , MDET1 , SCMBLK, TFPCNT , // 
LCAP2  routines i  BPRINT1 , ENDLINE, MPRINT1 , OPMESG, PYPRN1 , TFPRN1 


RL0CIN1 


Identification 

SUBROUTINE  RLOCIN1  -  Interactive  Input  Routine  For  Root  Locus 
CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 

Purpg.se 

Interactive  input  routine  for  root  locus. 


Usage 


CALL  RLOCINK IUNIT , I  EXIT, NIT,XL,XR, YTOP, YBOT , IPRN1 ) 


IUNIT 

input 

- 

Tape  unit  used  to  save  sets  of  data  computed 

IEXIT 

output 

= 1  on  exit  from  RL0CIN2  if  user  wants  to  reenter  root 
locus  parameters 

-2  on  exit  from  RL0CIN2  if  user  does  not  want  a  plot 

NIT 

output 

- 

Number  of  records  written  on  TAPE  IUNIT 

XL 

input 

- 

Auto  scaled  min  x 

XR 

input 

- 

Auto  scaled  max  x 

YTOP 

input 

- 

Auto  scaled  max  y 

YBOT 

input 

- 

Auto  scaled  min  y 

IPRN1 

output 

“ 

=1  on  exit  from  RL0CIN1  if  user  wants  to  suppress 
tabular  printout  of  the  roots,  =0  otherwise 

Meshed 


Subroutines  RL0CIN1  and  RL0CIN2  are  called  by  RL0CUS1.  RL0CIN1  is  used  for 
inputing  root  locus  gain  parameters  and  for  selecting  method  for  incrementing 
the  gains.  Subroutine  RL0CIN2  is  used  for  inputing  plot  parameters. 

Requirement? 

COMMON  blocks >  HEADDB,// 

LCAP2  routines.  GRAF1 , ITITLE 

Alternate.  .Entry 


SUBROUTINE  RL0CIN2  -  Interactive  input  routine  for  root  locus. 


RL0CUS1 


Identification 

SUBROUTINE  RL0CUS1  -  Root  Locus 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  and  plot  root  locus.  This  routine  is  called  by  SLOCI,  WLOCI  and 
ZLOCI . 

Usage 


CALL  RL0CUS1 C IPLANE, INDXI , PN, PD, RTN, RTD, INI , IDI , XPOINT, YPOINT) 


IPLANE 

INDXI 

PN 

PD 

RTN 

RTD 

INI 

IDI 

XPOINT 

YPOINT 


input 

input 

input 

input 

input  - 

input 

input  - 

input 

output  - 
output  - 


=0  for  s  plane,  =-l  for  w  plane,  =1  for  z  plane 
not  used  anymore 

Polynomial  coefficient  array  (LCAP2  format)  of  numerator 
Polynomial  coefficient  array  (LCAP2  format)  of  denominator 
Complex  polynomial  root  array  (LCAP2  format)  of  numerator 
Complex  polynomial  root  array  (LCAP2  format)  of  denominator 
=0  if  numerator  coefficients  and  roots  are  available 
=1  if  only  numerator  coefficients  are  available 
s0  if  denominator  coefficients  and  roots  are  available 
31  if  only  denominator  coefficients  are  available 
Array  of  x  component  of  root  locus  points  (DIMENSION=1500) 
Array  of  y  component  of  root  locus  points  (DIMENSI0N=1500) 


1.  For  the  batch  version,  the  root  locus  parameters  are  in  COMMON/HEADDB/ . 
These  parameters  are  to  be  set  before  this  subroutine  is  called. 


2.  For  the  interactive  version,  the  user  is  prompted  for  the  root  locus  param¬ 
eters. 


3.  Flag  INTFLG  C preset  =  0)  of  COMMON/ I NTCOM/  is  used  to  determine  if  program  is 
in  interactive  or  batch  mode.  If  .NE.O,  program  is  in  the  interactive  mode. 

HftjJtlftd 

The  root  locus  is  computed  by  evaluating  the  roots  of  the  polynomial  (PN  + 
GAINXPD)  where  GAIN  is  the  varied  gain  and  PN  and  PD  are  the  numerator  and  denom¬ 
inator  polynomials,  respectively. 

File  TAPE19  is  used  to  save  root  locus  plot  points. 


If  in  the  interactive  mode,  RL0CIN1  and  RL0CIN2  are  called. 


RERIHI 


Identification 

SUBROUTINE  RPRINT  -  Print  Out  Transfer  Function  Coefficient  With  Integer 

Identifier 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
PvfCBQSR 

Print  out  transfer  function  coefficients  with  an  integer  identifier.  (This 
is  a  very  old  routine  which  will  eventually  be  phased  out) 

Usage 


CALL  RPRINT(R» I ) 

R  input  -  Transfer  function  coefficient  array  (LCAP2  format) 
I  input  -  Identifier  (.GT.O)  used  for  labeling  printout 

Restrictions 

The  degree  of  the  transfer  function  must  be  less  than  50. 

Requirements 

COMMON  blocksi  none 
LCAP2  routines!  none 


i  v 
*  *  * 

1 V’ 

ft; 


m 


m 
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rrtadd 


Identification 

SUBROUTINE  RRTADO  -  Add  Transfer  Functions  (Root  Form) 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Add  two  transfer  functions  in  root  form. 


Usage 


CALL  RRTADD(RTJ,RTK,RTI,PI) 

RTJ  input  -  Complex  transfer  function  root  array  (LCAP2  format) 

RJK  input  -  Complex  transfer  function  root  array  (LCAP2  format) 

RTI  output  -  Complex  transfer  function  root  array  (LCAP2  format)  of  sum 

PI  output  -  Transfer  function  coefficient  root  array  (LCAP2  format) 

of  sum 

1.  Flag  PRN8  (preset=0)  of  COMMON/HEADDB/  if  .NE.O,  will  print  out  common 
roots  eliminated. 

Method 

Common  roots,  if  any,  are  first  factored  from  the  denominator  of  the  j-th 
and  k-th  transfer  function.  The  transfer  functions  are  then  added  and  rational¬ 
ized.  The  factored  common  denominator  roots,  if  any,  are  then  recombined.  Sub¬ 
routine  CRELIM  is  called  to  remove  any  common  roots  between  the  numerator  and 
denominator.  Finally,  the  coefficients  of  the  resultant  transfer  function  are 
computed  from  the  roots. 

Requirements 

COMMON  blocks.  HEADDB 

LCAP2  routines:  ADDP , CREL IM, PROOT, PSYNTH, RPRN, RTEQU, RTMPY, SUBP 
AXt.erna.te  Entry 

SUBROUTINE  RRTAD1  -  Same  as  RRTADD  except  that  it  will  bypass  elimination 
of  common  roots  of  the  final  sum.  (RRTAD1  is  called  by  WTRANS) 


SUBROUTINE  RRTEQU  -  Equate  Transfer  Function  Root  Arrays 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 

Eacgaas 

Equate  transfer  functions  in  root  form. 


Usage 

CALL  RRTEQU(RI/R2) 

R1  input  -  Complex  transfer  function  root  array  CLCAP2  format) 
R2  output  -  Complex  transfer  function  root  array  (LCAP2  format) 

Method 

The  code  for  this  routine  is  in  subroutine  RTEQU. 
Restrictions 

The  degree  of  the  transfer  function  must  be  less  than  50. 

Reqviir  emends 


COMMON  blockst  none 
LCAP2  routines!  none 


RRTSUB 


SUBROUTINE  RRTSUB  -  Subtract  Transfer  Functions  (Root  Form) 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 


Purpose 


Subtract  two  transfer  functions  in  root  form. 


Usage 

CALL  RRTSUBCRT J , RTK, RTI , PI ) 

RTJ  input  -  Complex  transfer  function  root  array  (LCAP2  format) 
(minuend) 

RJK  input  -  Complex  transfer  function  root  array  (LCAP2  format) 
(subtrahend) 

RTI  output  -  Complex  transfer  function  root  array  (LCAP2  format)  of 
difference 

PI  output  -  Transfer  function  coefficient  root  array  (LCAP2  format) 
of  difference 


1.  Flag  PRN8  (preset=0)  of  COMMON/HEADDB/  if  .NE.O,  will  print  out  common 
roots  eliminated. 


Method 

Common  roots*  if  any,  are  first  factored  from  the  denominator  of  the  j-th 
and  k-th  transfer  function.  The  transfer  functions  are  then  subtracted  and 
rationalized.  The  factored  common  denominator  roots,  if  any,  are  then 
recombined.  Subroutine  CRELIM  is  called  to  remove  any  common  roots  between  the 
numerator  and  denominator.  Finally,  the  coefficients  of  the  resultant  transfer 
function  are  computed  from  the  roots. 

The  code  for  this  routine  is  in  subrou  Lne  RRTADD. 


COMMON  blocks <  HEADDB 

LCAP2  routinesi  ADDP, CRELIM, PROOT ,PSYNTH,RPRN, RTEQU, RTMPY, SUBP 
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RRTPRN 


Identification 

SUBROUTINE  RRTPRN  -  Print  Out  Transfer  Function  Roots  Hith  Hollerith  Identifier 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Print  out  transfer  function  root  array  with  a  Hollerith  Identifier. 


|  Usaas 

CALL  RRTPRN(TFR,HORD) 

TFR  input  -  Complex  transfer  function  root  array  (LCAP2  format) 
WORD  input  -  Hollerith  word  used  to  label  the  transfer  function 

I 

Restrictions 

The  degree  of  the  transfer  function  must  be  less  than  50. 

Requirements 

COMMON  blocksi  none 
LCAP2  routines!  XTRACT 

Alternate  Entries 

SUBROUTINE  TFRPRN  -  Same  as  RRTPRN. 


I 


SUBROUTINE  RRZERO  -  Zero  Out  Transfer  Function  Root  Array 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Initialize  transfer  function  root  array  to  zero. 


Usage 


CALL  RRZERO(R) 

R  input  -  Complex  transfer  function  root  array  (LCAP2  format) 
output  -  Complex  transfer  function  root  array  CLCAPZ  format) 

The  code  for  this  routine  in  is  subroutine  RZERO. 
Requirements 


COMMON  blocks)  none 
LCAP2  routines)  none 


RTCMNT 


Identification 

SUBROUTINE  RTCMNT  -  Root  Comment  For  Interactive  Use 
CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Print  comment  to  interactive  user  on  format  used  to  enter  root  data.  If 
user  desires,  program  will  print  out  an  example. 

Usage 


CALL  RTCMNT 

Requirements 

COMMON  blocks:  ACOM 
LCAP2  routines:  none 


Identification 

SUBROUTINE  RTEQU  -  Equate  Polynomial  Root  Array 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Equate  polynomials  in  root  form. 


Usage 


CALL  RTEQU(R1,R2) 

R1  input  -  Complex  polynomial  root  array  (LCAP2  format) 
R2  output  -  Complex  polynomial  root  array  CLCAP2  format) 

Restrictions 

The  degree  of  the  polynomial  must  be  less  than  50. 

Requirements 

COMMON  blocks:  none 
LCAP2  routines:  none 

Alternate  Entry 


SUBROUTINE  REQU  -  Same  as  RTEQU 


SUBROUTINE  RTEQ1  -  Find  Number  Of  Real  Roots  Equal  To  (l.,0.) 

CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 

Purpose 

Find  number  of  real  roots  which  are  equal  or  very  close  to  (l.,0.).  These 
roots  are  moved  to  the  end  of  the  list  of  non-zero  roots.  This  routine  is  used 
by  subroutine  ZHTRANS. 

Usage 

CALL  RTE01(R00T,L) 

ROOT  input  -  Complex  polynomial  root  array  (LCAP2  format) 

L  output  -  Number  of  roots  found  equal  to  (l.,0.) 

Requirements 

COMMON  blocks >  HEADDB 
LCAP2  routines.  XTRACT 


Alternate  Entry 

SUBROUTINE  RTEQ2  -  Same  as  RTEQ1  except  that  the  criteria  for  roots  equal 
to  or  very  close  to  (-1 . ,  0 . )  instead  of  ( 1 . ,  0 . ) . 


RTMPY 


IrfgniifisaiijaD 

SUBROUTINE  RTMPY  -  Multiply  Polynomials  (Root  Form) 
CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Multiply  two  polynomials  in  root  form. 


Msaae 


CALL  RTMPYCR00T1 > R00T2, R00T3) 

R00T1  input  -  Complex  polynomial  root  array  (LCAP2  format) 

R00T2  input  -  Complex  polynomial  root  array  (LCAP2  format) 

ROOT3  output  -  Complex  polynomial  root  array  (LCAP2  format)  of  product 

Method 

The  product  R00T3  is  obtained  by  collecting  the  roots  from  R00T1  R00T2. 
Restrictions 

The  degree  of  the  polynomials  must  be  less  than  50.  If  the  degree  of  the 
resultant  polynomial  is  greater  than  49>  the  program  will  be  terminated. 

Re«m  regents 

COMMON  blocks:  none 
LCAP2  routines:  RCLAS, REQU 

Alternate  Entry  Marne 

SUBROUTINE  RTADD  -  Same  as  RTMPY. 
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RIPRN 


Identification 

SUBROUTINE  RTPRN  *  Print  Out  Polynomial  Roots  With  Hollerith  Identifier 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Print  out  polynomial  root  array  with  a  Hollerith  Identifier. 

Msaae 

CALL  RTPRN (TFR> WORD) 

TFR  input  -  Complex  polynomial  root  array  (LCAP2  format) 

WORD  input  -  Hollerith  word  used  to  label  the  polynomial 

Method 

The  code  for  this  routine  is  in  subroutine  RRTPRN. 

Restrictions 

The  degree  of  the  polynomial  must  be  less  than  50. 

Requirements 

COMMON  blocks:  none 
LCAP2  routines:  EXTRACT 


RTPRN2 


SUBROUTINE  RTPRN2  -  Print  Out  Polynomial  Root  Array 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 

Pyrp.9s.fl 

Print  out  polynomial  or  transfer  function  roots  with  identifiers  using 
tables. 

Usaae 

CALL  RTPRN2( IFLAG/ROOT , I DENT , IPLANE) 

IFLAG  input  -  =0  no  heading 

=1  THE  ROOTS  OF  ROOT(IDENT)  ARE 
=2  THE  ROOTS  OF  ROOT  ARE 

=3  THE  NUMERATOR  ROOTS  OF  -ROOT(IDENT)  ARE 
THE  DENOMINATOR  ROOTS  OF  -ROOT(IDENT)  ARE 
=4  THE  ROOTS  OF  POLY(IDENT)  ARE 

(The  character  -  above  designates  s,  w  or  z 
as  determined  by  the  value  of  IPLANE) 

~5  THE  ROOTS  OF  POLY  ARE 

ROOT  input  -  Complex  polynomial  root  array  (LCAP2  format) 

IDENT  input  -  root  array  identifier  (1-99) 

IPLANE  input  -  =0  for  s  plane.  =-l  for  w  plane,  =1  for  z  plane 


COMMON  blocks i  none 

LCAP2  routinesi  FCNW2,HOLLI,RTPRNO 


RZERO 


Identification 

SUBROUTINE  RZERO  ~  Zero  Out  Polynomial  Root  Array 
CDC  FORTRAN  <* 

E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Initialize  polynomial  root  array  elements  to  zero. 


Usage 


CALL  RZERO(R) 

R  input  -  Complex  polynomial  root  array  (LCAP2  format) 
output  -  Complex  polynomial  root  array  CLCAP2  format) 

Requirements 


COMMON  blocks:  none 
LCAP2  routines:  none 


SELCR 


Identification 

SUBROUTINE  SELCR  -  LCAP2  Operator,  Eliminate  Common  Roots  Of  S  Plane 

Transfer  Function 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Eliminate  common  roots  from  an  s  plane  transfer  function  using  an  LCAP2 
index. 

Usage 


CALL  SELCRCI) 

I  input  -  Index  of  s  plane  transfer  function 

1.  Common  root  elimination  parameters  ECRE1  ( preset=2 . E-4 )  and  ECRE2 
(preset=l . E-8 )  are  in  COMMON/HEADDB/ . 

Method 


If  a  numerator  root  nrt  and  a  denominator  root  drt  are  found  such  that 
ABS(drt/nrt  -  ( 1 . , 0 . ) ) . LT . ECRE1  for  nrt.NE.O  or  A BSC  drt ) . LT . ECRE2  for  nrt.EQ.O, 
roots  nrt  and  drt  are  considered  to  be  common  roots  and  will  be  eliminated  from 
the  transfer  function. 

Requirements 

COMMON  blocks i  INTCOM, PRNCTL , TFTEMP 

LCAP2  routines.  CRELIM, ENDLINE, FCNPLN, FETTFX, OPMESG, OPPRN, PROOT, PSYNTH, 
RREQU, RTPRNO , STRTFX, TFPRN1 , TFPRN4 


COMPLEX  FUNCTION  SFAUX  -  Evaluate  S  Plane  Transfer  Function  Coefficient  Array 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Evaluate  s  plane  transfer  function  coefficient  array  (LCAP2  format)  for  use 
in  computing  the  frequency  response.  This  complex  function  can  be  be  used  by 
subroutine  FREQS1  or  FREQS2  to  evaluate  the  transfer  function  specified  by  its 
first  argument.  It  can  also  be  used  by  usei — supplied  subroutines  similar  to 
SFAUX1. 

Usage 


SFAUX(TFC) 

TFC  input  -  Transfer  function  coefficient  array  CLCAP2  format) 

SFAUX  output  -  Complex  value  of  response 

1.  Independent  s  plane  frequency  to  be  used  in  evaluating  the  response  is 
determined  in  subroutine  FREQS1  or  FREQS2. 

Requirements 


COMMON  blocks.  FRQBLK, HEADDB, LENGTH 
LCAP2  routines,  none 


COMPLEX  FUNCTION  SFAUX1  -  Evaluate  S  Plane  Transfer  Function  Coefficient  Array 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

This  complex  function  is  similar  to  SFAUX  except  that  it  is  written  so  that 
it  can  be  easily  modified  by  the  user  to  allow  creation  of  a  user-defined  s  plane 
transfer  function. 

Usage 

SFAUXl(TFC) 

TFC  input  -  Transfer  function  coefficient  array  (LCAP2  format) 

SFAUX1  output  -  Complex  value  of  response 

Method 

This  complex  function  has  only  one  line  of  code 
SFAUX1=SFAUX(TFC) 

so  that  it  will  yield  the  same  results  as  SFAUX. 

To  create  a  user  defined  s  plane  transfer  function,  a  different  value  is 
returned  for  SFAUX1 .  For  example,  if  the  function  is 

SPTF2  ♦  SPTF4/2. 

the  user  would  change  the  FORTRAN  code  to 

SFAUX1=SFAUX( SPTF2 )  +  SFAUXC SPTF4 )/2 . 


The  argument  TFC  must  be  an  array  in  memory.  Since  only  the  first  five  s 
plane  transfer  functions  are  in  COMMON/SCMBLK/  and  all  others  are  on  a  disk 
file,  only  SPTF1,  SPTF2,  SPTF3,  SPTF4  and  SPTF5  can  be  used  to  create  a 
user-defined  s  plane  transfer  function.  However,  the  user  can  define  additional 
transfer  function  coefficient  arrays  in  a  separate  labeled  common  block  to  be 
accessible  by  SFAUX.  Subroutine  FETSTF  can  be  used  to  copy  transfer  functions 
from  the  disk  file  to  the  transfer  function  in  this  common  block. 
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SUBROUTINE  SFREQ  -  LCAP2  Operator,  S  Plane  Frequency  Response 
CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Evaluate  s  plane  frequency  response  using  an  LCAP2  index.  Automatic  fre¬ 
quency  mode  available  to  allow  program  to  dynamically  choose  its  own  frequency 
points  to  yield  a  smooth  plot  of  the  response. 

Usage 

CALL  SFREQ(I) 

I  input  -  Index  of  s  plane  transfer  function 

1.  Frequency  response  parameters  are  in  COMMON/HEADDB .  They  are  to  be  set 
before  SFREQ  is  called.  These  parameters  are  defined  belowi 

parameter  preset  description 

FAUTO  1  .NE.O  for  automatic  frequency  mode.  Uses  NOMEG 

and  OMEGA  array. 

.EQ.O  for  usei — supplied  frequency  points.  Uses 
FREQ1 ,  FREQ2,  ...,  FREQ5  arrays. 

NOMEG  2  Number  of  frequency  points  entered  in  OMEGA  array 

for  use  in  auto,  frequency  mode  (max=20) 

OMEGA  Array  of  frequency  points  for  auto.  freq.  mode 

(Units  defined  by  RAD).  "* 

1.  OMEGA(l)=first  frequency  point  used  in  auto,  mode 
10.  0MEGA(2)=second  frequency  point  used  in  auto,  mode 


OMEGA(NOMEG)=last  freq.  point  used  in  auto,  mode 
RAD  1  .NE.O  for  rad/sec,  .EQ.O  for  HZ 

FBODE  1  .NE.O  for  Bode  plot 

FNICO  0  .NE.O  for  Nichols  plot 

PMARG  0  .NE.O  for  plotting  phase  margin  instead  of  phase 

for  Nichols  plot 

FNYQS  0  .NE.O  for  Nyquist  plot 

NQDB  0  .NE.O  for  Nyquist  plot  in  db 

GRAFP  1  .NE.O  for  printer  (low  resolution)  plot 

FILM  0  .NE.O  for  hardcopy  (high  resolution)  plot 

FDLAY  0  Time  delay  (dead  time)  (s  plane  only) 

DEGMN  -360.  Minimum  defined  phase  in  frequency  response 

(Phase  defined  from  DEGMN  to  DEGMN+360 . ) 


CYCLE 


FREQ1C1) 

FREQK2) 

FREQH3) 

FREQk(l) 

FREQk(2) 

FREQk(3) 

(k=2,5) 


0  .  EQ.O  for  automatic  selection  of  2  or  3  cycle 

scale  for  Bode  plots.  (1  cycle  not  available) 
1  Starting  freq.  point  for  first  segment  of 

user  specified  values 

10  End  freq.  point  for  second  segment  of  user 
specified  values 

1  Delta  frequency  for  third  segment  of  user 

specified  values 

0  Starting  freq.  point  for  k-th  segment  x 
0  End  freq.  point  for  k-th  segment  X 

0  Delta  frequency  for  k-th  segment  X 

(X  -  only  if  FAUTO.EQ.O) 


DBMAX 

DBM1N 

FXYDL 

FXYMN 

SAMPT 


0  Maximum  db  for  plotting  frequency  response 

0  Minimum  db  for  plotting  frequency  response 

(Auto,  scaling  if  DBMAX=DBMIN) 

.5  Nyquist  plot  scale  in  units  per  inch 

(Auto,  scaling  if  FXYDL=0) 

-2.5  Nyquist  plot  parameter  -  minimum  real  and  imaginary 

value  plotted. 

1.  Sampling  period  for  use  in  w  or  z  plane  freq.  response 


2.  Computed  response  variables  are  in  blank  common  // .  These  variables  are 
defined  belowi 


Variables 


Description 


NI 

XPOINT 

YPOINT 

OMEGPT 

CXR 

CXI 


Number  of  plot  points 

Array  of  db  of  the  response  ( DIMENSION=1500) 
Array  of  phase  of  the  response  (DIMENSION=1500) 
Array  of  real  frequencies  (D1MENSION=1500) 

Array  of  real  part  of  response  (DIMENSION=1500) 
Array  of  imag  part  of  response  (DIMENSION=1500) 


Method 


If  the  automatic  frequency  mode  is  selected  (FAUTO=0),  the  program  will 
choose  frequency  values  for  evaluating  the  transfer  function  such  that  succes¬ 
sive  delta  db  and  delta  phase  values  will  be  within  specified  limits  to  yield  a 
smooth  plot.  The  program  evaluates  the  first  point  using  f  =  OMEGA(l).  Then 
choosing  deltaf  =  0MEGA(l)/20  initially,  the  next  frequency  to  be  used  is  com¬ 
puted  as  f  =  f  +  deltaf.  Evaluating  the  next  point  using  this  value  of  f,  the 
delta  db  and  delta  phase  is  compared  to  the  specified  limits.  If  either  is  too 
large,  deltaf  is  halved  and  the  response  is  recomputed.  If  both  are  too  small, 
deltaf  is  doubled  and  the  response  is  recomputed.  The  limits  for  the  delta  db 
response  is  EDB1/2  and  EDB1 .  The  limits  for  the  delta  phase  response  is  EDEG1/2 
and  EDEG1 .  Simultaneously  with  computing  the  next  f  to  be  used,  a  comparison  is 
made  with  the  next  value  of  OMEGA(i).  If  f  is  larger  than  OMEGA(i),  f  will  be 
replaced  with  the  value  of  OMEGA(i).  This  will  ensure  that  the  user  specified 


frequency  values  will  be  inserted  into  those  computed  by  the  program.  This  proc¬ 
ess  will  continue  until  the  last  value  OMEGA(NOHEG)  is  used. 

Since  the  plot  points  computed  to  generate  a  smooth  plot  will,  in  many  cas- 
es>  be  very  large,  only  a  portion  of  the  computed  response  will  be  printed  out. 
The  printout  is  controlled  by  the  delta  db  and  delta  phase  parameters,  EDB2  and 
EDEG2,  respectively .  A  printout  is  made  only  if  either  of  these  two  limits  are 

exceeded. 

Also  as  part  of  the  automatic  frequency  mode,  a  comparison  is  made  on  del- 
taf  to  keep  (delta f/f)  within  the  limits  of  MNDW  and  MXDW.  The  lower  limit  MNDH 
is  necessary  to  prevent  an  excessive  number  of  plot  points  around  frequencies 
with  low  damping  coefficients.  The  upper  limit  MXDW  will  ensure  enough  points  to 
yield  a  smooth  Bode  plot. 

The  above  parameters  used  in  the  automatic  frequency  mode  are  in 
COMMON/HEADDB/ .  They  can  be  changed  by  the  user.  These  parameters  are  defind 
below i 


pa rameter 

preset 

description 

EDB1 

1. 

Min.  delta  db  for  plotting 

EDB2 

2. 

Min.  delta  db  for  printout 

EDEG1 

4. 

Max.  delta  phase  for  plotting 

EDEG2 

10. 

Max.  delta  phase  for  printout 

MNDW 

.0005 

Min  relative  frequency  step  size 

MXDW 

.2 

Max.  relative  frequency  step  size 

MXITF 

3000. 

Max.  no.  of  iterations  in  auto,  mode 

With  either  the  automatic  or  the  non-automatic  frequency  mode,  the  program 
will  automatically  check  for  the  gain  and  phase  crossover.  When  found,  interpo¬ 
lation  is  used  to  find  the  exact  crossover  frequency  and  the  response  computed 
at  that  frequency. 

In  the  non-automatic  frequency  mode  (FAUT0=0)  the  user  can  define  up  to 
five  sets  of  frequencies  to  be  used  in  computing  the  response.  Each  of  these 
sets  are  specified  by  a  three  element  array  of  the  form  FREQk(i),  i  =  l,3 
described  above  under  Usage.  If  FREQk(l)  =  a,  FREQk(2)  =  b,  and  FREQk(3)  =  c, 
the  k-th  set  of  frequencies  specified  isi 

a,  a+c,  a+2c,  .  ..,  a+jc,  b 

where  j  is  the  largest  integer  such  that  (a+jc)  is  less  than  b.  Each  successive 
FREQk  array  must  define  an  increasing  set  of  frequencies  such  that  the  first 
value  of  the  segment  is  always  larger  than  the  last  value  of  the  preceding  seg¬ 
ment.  When  FREQk(3)  is  not  larger  than  FREQk(l),  as  in  the  case  with  the  preset 
values  for  k  =  2,5,  those  segments  will  not  be  used. 


SFREQY 


Identification 

SUBROUTINE  SFREQY  -  Evaluate  Frequency  Response  Of  An  S  Plane  Transfer 

Function  Coefficient  Array 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
PMCPQSfi 

Evaluate  frequency  response  of  an  s  plane  transfer  function  coefficient 
array.  User  supplies  name  of  the  array. 

Usage 


CALL  SFREQYCTFC) 

TFC  input  -  Transfer  function  coefficient  array  (LCAP2  format) 

1.  Frequency  response  parameters  are  in  COMMON/HEADDB/ .  See  description  of 
subroutine  SFREQ  for  definition. 

If  LCAP2  defined  transfer  function  coefficient  arrays  are  to  be  used,  only 
the  first  five  transfer  functions  for  each  plane  are  available  since  the  others 
are  on  disk  files.  However,  a  user  common  block  can  be  defined  so  that  these  oth¬ 
er  transfer  functions  can  be  first  transferred  from  disk  file  to  memory  with 
subroutine  FETSTF  so  that  SFREQY  can  be  used. 

Pequirftroqnts 

COMMON  blocks)  none 

LCAP2  routines:  FREQS2,SFAUX 


SLOCI 


Identification 

SUBROUTINE  SLOCI  -  LCAP2  Operator,  S  Plane  Root  Locus 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Evaluate  s  plane  root  locus  using  an  LCAP2  index.  Automatic  gain  selection 
is  available  to  supplement  user  selected  gains. 

Usage 

CALL  SLOCI(I) 

I  input  -  Index  of  s  plane  transfer  function  to  be  evaluated 

1.  Root  locus  parameters  are  in  COMMON/HEADDB/ .  They  are  to  be  set  before 
SLOCI  is  called.  These  parameters  are  defined  below* 


pa rameter 
NLOCI 

KGAIN 


preset 

2 


description 

Number  of  root  locus  gains  entered  in  array  KGAIN 
(max=25) 

Array  of  values  used  for  computing  root  locus  gains 
KGAIN(l)=first  user-specified  root  locus  gain 
KGAIN(2)=second  user-specified  root  locus  gain 


KGAIN(NLOCI)=last  root  locus  gain 

(Gains  computed  and  used  only  if  they  are  between 

KGAIN(l)  and  KGAINC NLOCI )  ) 


KFLG 

0 

. EQ . 0  to  increment  gain  by  multiplying  by  KOELT 
. NE.O  to  increment  gain  by  adding  by  KDELT 

KDELT 

1.E4 

Value  for  changing  gains  (preset  to  large  value  so 
that  no  additional  gains  are  computed  by  the  program) 

ITLOC 

50 

Max.  no.  of  differenet  gains  computed  for  root  locus 

- 

GRAFP 

1 

■NE.O  for  printer  (low  resolution)  plot 

FILM 

0 

.NE.O  for  hardcopy  (high  resolution)  plot 

RLXMN 

0 

Minimum  x  axis  for  plot 

• 

RLXMX 

0 

Maximum  x  axis  for  plot 

(Auto,  scaling  of  x  axis  if  RLXMN=RLXMX=0) 

RLYMN 

0 

Minimum  y  axis  for  plot 

RLYMX 

0 

Maximum  y  axis  for  plot 

(Auto,  scaling  of  y  axis  if  RLYMN=RLYMX=0) 

v--.  . 


>  .V 


Method 


Root  locus  is  computed  by  evaluating  the  roots  of  the  polynomial  (PN  + 
GAINXPD)  where  GAIN  is  the  varied  gain  and  PN  and  PD  are  the  numerator  and  denom¬ 
inator  polynomials  of  the  transfer  function. 

Requirements 

COMMON  blocks.  INTCOM, PRNCTL , TFTEMP,// 

LCAP2  routines.  ENDLINE, FCNPLN, FETTFX, OPMESG, RL0CUS1 , TFPRN1 


SNORM 


Identification 

SUBROUTINE  SNORM  -  LCAP2  Operator*  Normalize  S  Plane  Transfer  Function 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Normalize  s  plane  transfer  function  using  an  LCAP2  index.  Normalization  can 
be  either  with  respect  to  the  low  order  non-zero  coefficient  or  the  high  order 
coefficient  of  the  denominator. 

Usage 


CALL  SNORMCI) 


I  input  -  Index  of  the  s  plane  transfer  function 

1.  Normalization  parameters  are  in  COMMON/HEADDB/ .  They  are  to  be  set  before 
SNORM  is  called.  These  parameters  are  defined  belowi 


preset  description 

1.  Value  used  for  normalizing  the  transfer  function 
0  If  .EQ.O,  the  low  order  non-zero  coefficient  of  the 
denominator  is  set  equal  to  the  value  of  KNORM  and 
all  other  coefficients  are  normalized  to  this  value. 

If  KNQRM=1.,  the  low  order  non-zero  coefficient  of  the 
numerator  is  the  Bode  gain. 

If  .NE.O*  the  high  order  coefficient  of  the  denominator 
is  set  equal  to  the  value  of  KNORM  and  all  other  coeffi¬ 
cients  are  normalized  to  this  value.  If  KN0RM=1 . ,  the 
high  order  coefficient  of  the  numerator  is  the  root 
locus  gain. 

Restrictions 

KNORM  cannot  be  zero. 

Requirements 

COMMON  blocks:  INTCOM, PRNCTL  *TFTEMP 

LCAP2  routines :  ENDLINE, FCNPLN, FETTFX, NORM, OPMESG, STRTFX, TFPRN1 , TFPRN4 


parameter 

KNORM 

NRMFG 
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SUBROUTINE  SPADD  -  LCAP2  Operator,  S  Plane  Transfer  Function  Add 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Add  two  s  plane  transfer  functions  using  LCAP2  indices. 


Usage 


CALL  SPADD( I , J , K) 

I  input  -  Index  of  resultant  transfer  function  sum 

J  input  -  Index  of  first  transfer  function  to  be  added 

K  input  -  Index  of  second  transfer  function  to  be  added 

Restrictions 

The  degree  of  the  transfer  function  must  be  less  than  50. 
Requirements 


COMMON  blocks.  PRNCTL , TFTEMP 

LCAP2  routines.  ENDLINE, FETTFX, OPPRN, PPADD, RRTADD, STFTFX, TFPRN1 , TFPRN4 


SUBROUTINE  SPEQU  -  LCAP2  Operator,  S  Plane  Equal 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Equate  s  plane  transfer  functions  using  LCAP2  indices. 


Usaae 


CALL  SPEQUC I , J ) 

I  input  -  Index  of  resultant  transfer  function 
J  input  -  Index  of  transfer  function  to  be  equated  with 

Restrictions 

The  degree  of  the  transfer  functions  must  be  less  than  50. 
Requirements 


COMMON  blocks!  OVCOM, PRNCTL , TFTEMP 

LCAP2  routines i  ENDLINE, FETTFX, OPPRN, PPEQU , RRTEQU, STRTFX, TFPRN1 , TFPRN4 


SUBROUTINE  SPLDC  -  LCAP2  Operator,  Load  Coefficients  Into  S  Plane  Transfer 

Function 

CDC  FORTRAN  A 
E .  A .  Lee 

Aerospace  Corporation 


Purpose 


Load  coefficients  into  s  plane  transfer  function  using  an  LCAP2  index. 


Usage 

CALL  SPLDC(I) 


I  input  -  Index  where  transfer  function  is  to  be  stored 

1.  Transfer  function  coefficients  are  entered  with  polynomial  coefficient 
arrays  POLYN  and  POLYD  (LCAP2  format)  which  are  in  COMMON/HEADDB/ .  They  are 
to  be  set  before  SPLDC  is  called. 


2.  The  calling  program  must  include  COMMON/HEADDB/  and  the  appropriate  DIMEN¬ 
SION  and  EQUIVALENCE  statements  for  POLYN  and  POLYD. 

3.  The  roots  of  SPTFi  will  not  be  automatically  computed.  If  this  is  desired, 
follow  this  operation  with  the  operator  SPRTS(I). 


Restrictions 

The  degree  of  the  transfer  function  must  be  less  than  50. 


Regui rements 


COMMON  blocks:  INTCOM, HEADDB,PRNCTL, TFTEMP 

LCAP2  routines:  ENDLINE, FCNPLN, OPMESG, PEQUAL , PPRN1 , STRTFX , TFPRN4 
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Identification 

SUBROUTINE  SPLDR  -  LCAP2  Operator,  Load  S  Plane  Transfer  Function  In 

Root  Form 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Load  roots  into  s  plane  transfer  function  using  an  LCAP2  index. 

Usage 


CALL  SPLDR(I) 

I  input  -  Index  where  transfer  function  is  to  be  stored 

1.  Transfer  function  roots  are  entered  with  polynomial  coefficient  arrays 
ROOTN  and  ROOTD  (LCAP2  format)  which  are  in  COMMON/HEADDB/ .  They  are  to  be 
set  before  SPLDR  is  called. 

2.  The  calling  program  must  include  COMMON/HEADDB/  and  the  appropriate  DIMEN¬ 
SION  and  EQUIVALENCE  statements  for  ROOTN  and  ROOTD. 

R.gjrtri.ction? 

The  degree  of  the  transfer  function  must  be  less  than  50. 

Requirements 


COMMON  blocks:  INTCOM, HEADDB , PRNCTL , TFTEMP 

LCAP2  routines :  ENDLINE, FCNPLN, OPMESG, PSYNTH, RTEQU, RTPRN2, STRTFX, TFPRN4 


SPPRN 


Identification 

SUBROUTINE  SPPRN  -  LCAP2  Operator,  Print  Out  S  Plane  Transfer  Function 
CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Print  out  s  plane  transfer  function  using  an  LCAP2  index. 


Usage 


CALL  SPPRN(I) 

I  input  -  Index  of  transfer  function  to  be  printed  out 
Method 

Roots  of  the  transfer  function  are  printed  out  only  if  they  are  defined 
(previously  computed  or  loaded  in).  Coefficients  of  the  transfer  function  are 
printed  out  in  ascending  order. 

Requirements 


COMMON  blocks:  INTCOM, TFTEMP 

LCAP2  routines:  ENDLINE, FCNPLN, FETTFX, OPMESG, TFPRNA 


S.P8T? 


SUBROUTINE  SPRTS  -  LCAP2  Operator,  Find  Roots  Of  S  Plane  Transfer  Function 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Find  roots  of  an  s  plane  transfer  function  using  an  LCAP2  index. 


Usage 


CALL  SPRTSCI) 


I  input  -  Index  of  s  plane  transfer  function 


Method 


Roots  of  the  numerator  and  denominator  are  computed  by  subroutine  PROOT . 


If  the  roots  of  SPTFi  were  previously  computed  or  loaded  in,  the  program 
will  not  recompute  the  roots  from  the  coefficients.  A  message  to  this  effect 
will  be  printed. 

Requirements 


COMMON  blocks:  INTCOM, PRNCTL , TFTEMP 

LCAP2  routines :  ENDLINE, FCNPLN, FCNW1 , FETTFX, OPMESG, PROOT , STRTFX, TFPRN1 , 
TFPRN4 
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SUBROUTINE  SPSUB  -  LCAP2  Operator#  S  Plane  Transfer  Function  Subtract 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 

Purpose 

Subtract  two  s  plane  transfer  functions  using  LCAP2  indices. 


Usaaa 


CALL  SPSUBC I , J , K) 

I  input  -  Index  of  resultant  transfer  function  difference 

J  input  -  Index  of  first  transfer  function  (minuend) 

K  input  -  Index  of  second  transfer  function  (subtrahend) 

Restrictions 

The  degree  of  the  transfer  functions  must  be  less  than  50. 
Requirements 


COMMON  blocks:  PRNCTL ,TFTEMP 

LCAP2  routines:  ENDLINE, FETTFX, OPPRN, PPSUB, RRTSUB, STRTFX, TFPRN1 , TFPRN4 


SUBROUTINE  STIME  -  LCAP2  Operator*  Inverse  Laplace  Transform  And  Time  Response 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 


Purpose 


Compute  inverse  Laplace  transform  and  the  time  response  using  an  LCAP2 
index . 


Usage 

CALL  STIME(I) 

I  input  -  Index  of  s  plane  transfer  function 

1.  Time  response  parameters  are  in  COMMON/HEADDB/ .  They  are  to  be  set  before 
STIME  is  called.  These  parameters  are  defined  belowi 


parameter 

TSTEP 

TMAGN 

TZERO 

TEND 

TDELT 

TMAGN 

GRAFP 

FILM 

TXMIN 

TXMAX 

TYMIN 

TYMAX 


preset  description 

1  .NE.O  for  step  response;  .EQ.O  for  impulse  response 

1.  Magnitude  of  input  for  time  response 
0  Start  time  for  evaluating  time  response 
1.  End  time  for  evaluating  time  response 
1.  Delta  time  for  evaluating  time  response 
1.  Magnitude  of  input  for  time  response 
1  .NE.O  for  printer  (low  resolution)  plot 

0  .NE.O  for  hardcopy  (high  resolution)  plot 

0  Minimum  x  axis  for  plot 

0  Maximum  x  axis  for  plot 

(Auto,  scaling  of  x  axis  if  TXMIN=TXMAX) 

0  Minimum  y  axis  for  plot 

0  Mamimum  y  axis  for  plot 

(Auto,  scaling  of  y  axis  if  TYMIN=TYMAX) 


Method 


The  partial  fraction  expansion  of  the  s  plane  transfer  function  times 
(1/s),  if  the  input  is  a  step  function,  is  first  computed.  By  utilizing  the 
inverse  Laplace  transform,  the  analytical  solution  is  computed  and  printed  out. 
This  analytical  solution  is  then  evaluated  over  the  range  of  time  values  speci¬ 
fied. 
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The  degree  of  the  trensfer  function  must  be  less  then  50. 


Due  to  the  algorithm  used  to  implement  the  partial  fraction  expansion,  the 
following  restrictions  on  the  form  of  the  s  plane  transfer  function  apply.  Mul¬ 
tiple  poles  are  not  allowed  except  for  those  at  the  origin.  The  poles  at  the  ori- 
•  gin  (including  the  pole  due  to  the  1/s  term  if  the  input  is  a  step  function)  must 

f  be  5  or  less.  Also,  the  degree  of  the  numerator  must  not  be  greater  than  the  num¬ 

ber  of  poles  not  at  the  origin. 

;  Requirements 

\ 

‘  COMMON  blocks.  INTCOM, PRNCTL ,TFTEMP,// 

i  LCAP2  routines.  ENDLINE, FCNPLN, FETTFX, OPMESG, PROOT , STIME1 , STFTFX,TFPRN1 , 

ZTIME1 


STIHf 1 


Identification 

SUBROUTINE  STIME1  -  Inverse  Laplace  Transform  and  Time  Response 
CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  inverse  Laplace  transform  and  time  response.  This  subroutine  is 
called  by  STIME. 

Usage 

CALL  STIME1CPNS, PDS,RTNS, RTDS) 

PNS  input  -  Numerator  polynomial  coefficient  array  (LCAP2  format) 

PDS  input  -  Denominator  polynomial  coefficient  array  CLCAP2  format) 

RTNS  input  -  Complex  numerator  polynomial  root  array  (LCAP2  format) 

RTDS  input  -  Complex  denominator  polynomial  root  array  CLCAP2  format) 

1.  Time  response  parameters  are  in  COMMON/ HEADDB/ .  See  description  of  STIME. 

Method 

Subroutine  STIME2  is  called  to  compute  the  analytical  solution  and  STIME3 
is  called  to  evaluate  the  time  response. 

For  interactive  LCAP2  the  user  is  prompted  for  the  type  of  input  and  the 
beginning  and  end  times  to  be  used  for  evaluating  the  response.  The  user  is  also 
given  the  option  to  suppress  tabular  output  of  the  response. 


COMMON  blocks:  CMELIM, CMRESD, CMTIME, HEADDB, INTCOM,// 
LCAP2  routines:  GRAF1,ITITLE,STIME2,STIME3,TSPL0T,ZTIME2 
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STIME2 


Identification 

SUBROUTINE  STIME2  -  Compute  Analytical  Solution  of  Inverse  Laplace  Transform 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  analytical  solution  of  inverse  Laplace  transform.  This  subroutine 
is  called  by  STIME1. 

Usage 


CALL  STIME2(PNS,PDS,RTNS,RTDS,IPRN1,IPRN2,IPRN3) 


PNS 

PDS 

RTNS 

RTDS 

IPRN1 

IPRN2 

IPRN3 


input  -  Numerator  polynomial  coefficient  array  CLCAP2  format) 
input  -  Denominator  polynomial  coefficient  array  (LCAP2  format) 
input  -  Complex  numerator  polynomial  root  array  (LCAP2  format) 
input  -  Complex  denominator  polynomial  root  array  CLCAP2  format) 

input  -  .NE.O  for  printout  of  common  roots  found 

input  -  .NE.O  for  printout  of  partial  fraction  coefficients 

input  -  .NE.O  for  printout  of  analytical  solution 


1.  Time  response  parameters  are  in  COMMON/ HEADDB/ .  See  description  for  STIME. 

2.  Output  is  saved  in  COMMON/CMELIM/ ,  COMMON/CMRESD/  and  COMMON/ CMT I ME/  for 
use  by  subroutine  STIME3.  The  parameters  in  these  common  blocks  are 
described  below: 


parameter  description 

(with  dimension) 


COMMON/CMELIM/ 


QROTC50) 

PROT (50 ) 

IQCOM 

IQR 

IQZ 

IPCOM 

IPR 

IPZ 


Complex  root  array  of  the  numerator  (LCAP2  format) 
Complex  root  array  of  the  denominator  (LCAP2  format) 
Number  of  complex  roots  of  the  numerator 
Number  of  non-zero  real  roots  of  the  numerator 

Number  of  roots  at  the  origin  of  the  numerator 

Number  of  complex  roots  of  the  denominator 
Number  of  non-zero  real  roots  of  the  denominator 

Number  of  roots  at  the  origin  of  the  denominator 


COMMON/CMRESD/ 


GAMMA(50)  Complex  array  of  partial  fraction  coefficients  of  the  poles 

not  at  the  origin 

LAMBDA(IO)  Complex  array  of  partial  fraction  coefficients  of  the  poles 

at  the  origin  origin 

COMMON/CMTIME/ 

A(25) 

B(  25 ) 

C(25) 

ALPHAK25) 

ALPHA2(25) 

BETA1C25) 

BETA2C25) 

Method 

See  description  for  STIME. 


Coefficient  array  for  analytical  expression  of  the  response 

It 

VI 

n 

N 

n 

IV 


COMMON  blocks!  CMEL IM, CMRESD, CMTIME, HEADDB 
LCAP2  routines:  CRELIM, RESDU, RTPRNO 


sum 


SUBROUTINE  STIME3  -  Compute  S  Plane  Time  Response  From  Analytical  Solution 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  s  plane  time  response  from  analytical  solution  computed  by  STIME2. 
This  subroutine  is  called  by  STIME1. 

Usage 

CALL  STIME3CTP0INT , YPOINT ,  NI , IPRN1 ) 

TPOINT  output  -  Array  of  time  points  <DIMENSION=1500) 

YPOINT  output  -  Array  of  response  points  ( DIMENSION=1500) 

NI  output  -  Number  of  response  points 

IPRN1  input  -  .NE.O  for  tabular  printout  of  time  response 

1.  Time  response  parameters  are  in  COMMON/HEADDB/ .  See  description 
for  STIME. 

2.  Parameters  for  the  analytical  solution  as  computed  by  subroutine 
STIME2  is  in  COMMON/CMELIM/,  COMMON/ CMRESD/  and  COMMON/CMTIME/ . 


COMMON  blocks.  CMELIM, CMRESD, CMTIME,HEADDB 
LCAP2  routines.  LEXIT 


SLOES 


Identification 

SUBROUTINE  STORE  -  Store  Polynomial ,  Transfer  Function  and  Matrix  Data 

CDC  FORTRAN  4 

C.  L.  Wong  and  E.  A.  Lee 

Aerospace  Corporation 

Purpose 

Store  data  from  an  LCAP2  batch  job  for  a  restart  capability.  This  data  can 
be  accessed  in  a  subsequent  batch  or  interactive  job  by  using  the  RESTORE  opera¬ 
tor. 


CALL  STORE(IPRNFG) 

IPRNFG  input  -  =0  for  no  printout  of  data  stored 

1.  To  identify  the  data  stored,  enter  alphanumeric  information  in  HEADC64) 
through  HEADC70)  of  COMMON/ HEADDB/  before  calling  STORE.  This  information 
will  be  printed  out  when  this  data  is  restored  in  a  subsequent  job. 

ttslhbd 

Data  will  be  saved  on  file  TAPE31 .  The  first  record  will  be  alphanumeric 
information  copied  from  HEAD(64)  through  KEADC70)  of  COMMON/HEADDB/ .  The  second 
record  will  be  information  from  COMMON/ TFPCNT/  which  describes  the  number  of 
polynomials  and  transfer  functions  saved  on  various  files.  The  third  record 
will  be  LCAP2  parameters  from  HEADU01)  through  HEADC900)  of  COMMON/HEADDB/. 

Polynomials  and  s,  w  and  z  plane  transfer  functions  with  LCAP2  indices  1 
through  5  are  stored  in  COMMON/SCMBLK/ .  These  polynomials  and  transfer 
functions,  regardless  if  they  have  been  used  by  the  user,  will  be  the  next  data 
copied  onto  file  TAPE31 .  Next,  polynomials  from  file  TAPE84  will  be  copied  onto 
file  TAPE31.  Then  s,  w  and  z  plane  transfer  functions  from  files  TAPE85,  TAPE86 
and  TAPE87,  respectively,  will  be  copied  onto  file  TAPE31.  Finally,  matrix  data 
from  C0MM0N/MATRIX1/  and  MDET1  will  be  copied  onto  file  TAPE31 . 

Efisicigliflna 

File  type  for  TAPE31  must  be  declared  with  •  FILE, TAPE31 , BT=I . ' 

Requirements 

COMMON  blocksi  ACOM, HEADDB, MATRIX1,MDET1,PRNCTL,SCMBLK, TFPCNT 
LCAP2  routines.  BPRINT1 , ENDLINE, MPRINT1 , OPMESG, PYPRN1 , TFPRN1 
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STRPY 


Identification 

SUBROUTINE  STRPY  -  Store  polynomial 
CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 


"?  ”  r*  v 


vS 


Purpose 

Store  polynomial  in  LCAP2  format. 


Usage 


CALL  STRPY(INDX,TFPOLY,TFROOT, IN) 


INDX 

TFPOLY 

TFROOT 

IN 


input  -  Index  of  polynomial  to  be  stored 

input  -  Polynomial  coefficient  array  (LCAP2  format) 

input  -  Complex  polynomial  root  array  CLCAP2  format),  only  if  IN=0 

input  -  =1  for  coefficient  form  only 

=0  for  coefficient  and  root  form 


Method 


If  INDX  .  LE.  5,  polynomial  data  will  be  saved  in  COMMON/'SCMBLKS .  If  INDX 
.GT.5  the  polynomial  data  will  be  written  on  sequential  file  TAPE84.  The  count¬ 
er  NPYCNT  in  C0MM0N/TFPCNT/  is  the  number  of  polynomial  records  on  sequential 
file  TAPE84.  This  counter  is  incremented  by  one  after  the  store  is  completed. 


Requirements 

COMMON  blocks*  SCMBLK, TFPCNT 
LCAP2  routines*  none 


S0 

ft?: 

fts 


.  • 

!>.« 

life* 
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STRSTF 


Identification 

SUBROUTINE  STRSTF  -  Store  S  Plane  Transfer  Function 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Store  s  plane  transfer  function  in  LCAP2  format. 


Usage 


CALL  STRSTFL INDX, TFPOLY. TFROQT , IN, ID) 


INDX 

input 

TFPOLY 

input 

TFR00T 

input 

IN 

input 

ID 

input 

Method 

Index  of  s  plane  transfer  function 

Transfer  function  coefficient  array  (LCAP2  format) 

Complex  transfer  function  root  array  (LCAP2  format) 

=1  for  numerator  coefficient  form  only 

=0  for  numerator  coefficient  and  root  form 

=1  for  denominator  coefficient  form  only 

=0  for  denominator  coefficient  and  root  form 


If  INDX  . LE.5,  transfer  function  data  will  be  saved  in  COMMON/SCMBLK/ .  If 
INDX  .GT.5  the  transfer  function  data  will  be  written  on  sequential  file  TAPE85. 
Counter  NSPCNT  in  COMMON/HEADDB/  is  used  to  keep  track  of  the  number  of  records 
written  on  file  TAPE85.  This  counter  is  incremented  by  one  after  the  store  opei — 
ation  is  completed. 


Requirements 

COMMON  blocks:  SCMBLK, TFPCNT 
LCAP2  routines:  none 


STRTPX 


SUBROUTINE  STRTFX  -  Store  Transfer  Function 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Store  transfer  function  in  LCAP2  format. 


Osage 


CALL  STRTFX( IPLANE, INDX, TFPOLY, TFROOT, IN, ID) 


IPLANE  input 
INDX  input 
TFPOLY  input  - 
TFROOT  input 
IN  input  - 

ID  input 


=0  for  s  plane,  =-l  for  w  plane,  =1  for  z  plane 
Index  of  transfer  function 

Transfer  function  coefficient  array  (LCAP2  format) 
Complex  transfer  function  root  array  (LCAP2  format) 
=1  for  numerator  coefficient  form  only 
=0  for  numerator  coefficient  and  root  form 
=1  for  denominator  coefficient  form  only 
=0  for  denominator  coefficient  and  root  form 


Method 

If  INDX  . LE. 5,  transfer  function  data  will  be  saved  in  COMMON/SCMBLK/ .  If 
INDX  .GT.5  the  transfer  function  data  will  be  written  on  a  sequential  file. 
TAPE85,  TAPE86  and  TAPE87  are  used,  respectively  for  s,  w  and  z  data.  Counters 
NSPCNT ,  NWPCNT  and  NZPCNT  in  COMMON/TFPCNT/  are  used  to  keep  track  of  records 
written  on  files  TAPE85,  TAPE86  and  TAPE87,  respectively.  This  counter  is  incre¬ 
mented  by  one  after  the  store  operation  is  completed. 


COMMON  blocks i  none 

LCAP2  routines <  STRSTF, STRUT F, STRZTF 


STRHTF 


Identification 

SUBROUTINE  STRUT F  -  Store  H  Plane  Transfer  Function 
CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 

Subroutine  STRHTF  is  similar  to  subroutine  STRSTF  except  that  it  is  for  the 
w  plane  instead  of  the  s  plane. 


STRZTF 


Identification 

SUBROUTINE  STRZTF  -  Store  Z  Plane  Transfer  Function 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 

Subroutine  STRZTF  is  similar  to  subroutine  STRSTF  except  that  it  is  for  the 
z  plane  instead  of  the  s  plane. 


i 
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Identification 


SUBROUTINE  SUBP  -  Subtract  Polynomials  (Coefficient  Form) 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Subtract  coefficients  of  two  polynomials 

Usage 

CALL  SUBP(A,B,C) 

A  input  -  Polynomial  coefficient  array  (LCAP2  format)  (minuend) 

B  input  -  Polynomial  coefficient  array  (LCAP2  format)  (subtrahend) 

C  output  -  Polynomial  coefficient  array  (LCAP2  format) 


1.  EPAD1  (preset=l . E10)  in  COMMON/HEADDB/  is  used  to  test  for  negligible  coef¬ 
ficients. 

Method 

Coefficients  of  polynomial  B  are  subtracted  from  coefficients  of  polynomial  A 
and  stored  into  polynomial  C.  A  test  is  then  made  to  see  if  the  highest  order 
coefficient  is  smaller  than  all  the  other  coefficients  by  1/EPAD1.  If  it  is, 
then  it  is  considered  to  be  negligible  and  is  set  to  zero  and  the  order  of  the 
polynomial  reduced  by  one.  This  test  is  then  repeated. 

The  code  for  this  routine  is  in  subroutine  ADDP. 

Restrjctipns 

The  degree  of  the  polynomials  must  be  less  than  50. 

Requirements 


COMMON  blocks:  HEADDB 

LCAP2  routines:  PCHEK, PEQUAL , PZERO 


SWMRX 


Identification 


SUBROUTINE  SWMRX  -  LCAP2  Operator,  S  to  W  Plane  Multirate  Transform 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  multirate  (slow  input,  fast  output)  s  to  w  plane  transform  using 
LCAP2  indices.  The  zero  order  hold,  if  included,  is  at  the  slower  input  sampling 
rate.  The  ratio  of  the  output/input  sampling  rates  must  be  an  integer,  (note: 
the  w  is  not  the  w*  defined  by  the  Tustin’s  bilinear  rule) 

Usage 


CALL  SWMRX ( I , J ) 


I  input  -  Index  of  w  plane  transfer  function 
J  input  -  Index  of  s  plane  transfer  function 

1.  SWMRX  parameters  are  in  COMMON/HEADDB/ .  They  are  to  be  set  before  SWMRX  is 
called.  These  parameters  are  defined  below: 


pa rameter 
DELAY 
SAMPT 
NTGER 

ZOH 


preset  description 

0  Time  delay,  (enter  negative  value  for  time  advance) 

1.  Sampling  period  of  the  faster  output  sampler 

1  Integer  ratio  of  output/input  sampling  rates 

(or,  input/output  sampling  periods) 

1  .NE.O  for  inclusion  of  zero  order  hold  at  the  input 


Method 


Partial  fraction  expansion  of  the  s  plane  transfer  function  (including  the 
1/s  from  the  zero  order  hold  if  there  is  one)  is  computed  by  subroutine  RESDU. 
The  w  transform  (at  the  faster  output  sampling  rate)  of  each  term  of  the  expan¬ 
sion  is  then  computed.  Next,  the  terms  of  the  expansion  are  summed  and  ratio¬ 
nalized.  Roots  of  this  intermediate  transfer  function  are  then  found.  This 
result  is  multiplied  by  the  discrete  contribution  of  the  zero  order  hold  (which 
is  at  the  slower  input  sampling  rate)  to  yield  the  desired  transform. 


Restrictions 

The  algorithm  used  for  computing  the  partial  fraction  expansion  requires 
the  following  constraints  on  the  s  plane  transfer  function.  Multiple  poles  are 
not  allowed  except  for  those  at  the  origin.  The  poles  at  the  origin  (including 
the  1/s  from  the  zero  order  hold  if  there  is  one)  must  be  5  or  less.  Also,  the 


degree  of  the  numerator  must  not  be  greater  than  the  number  of  poles  not  at  the 
origin . 


i 


s 

1  *.  . 
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Reguirements 

COMMON  blocks.  INTCOM,HEADDB,PRNCTL ,TFTEMP 

LCAP2  routines.  ENDLINE, FETTFX, OPPRN,PPEQU, PROOT, RREOU, STRTFX,TFPRN1 , 
TFPRN4, WMRTRAN, WZTRANS 
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SUBROUTINE  SHXFM  -  LCAP2  Operator,  S  to  M  Plane  Transform 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  sampled-data  transform  from  s  to  w  plane  using  LCAP2  indices. 
(note<  this  w  is  not  the  w'  defined  by  the  Tustin's  bilinear  rule) 

Usage 

CALL  SWXFM( I , J ) 

I  input  -  Index  of  w  plane  transfer  function 
J  input  -  Index  of  s  plane  transfer  function 

1.  SMXFM  parameters  are  in  COMMON/HEADDB/ .  They  are  to  be  set  before  SWXFM  is 
called.  These  parameters  are  defined  belowt 

parameter  preset  description 

DELAY  0  Time  delay,  (enter  negative  value  for  time  advance) 

SAMPT  1.  Sampling  period 

ZOH  1  . NE.O  for  inclusion  of  zero  order  hold 

Method 

Partial  fraction  expansion  of  the  s  plane  transfer  function  (including  the 
1/s  from  the  zero  order  hold  if  there  is  one)  is  computed  by  subroutine  RESDU. 
The  w  transform  of  each  term  of  the  expansion  is  then  computed.  Next,  the  terms 
of  the  expansion  are  summed  and  rationalized.  Roots  of  this  intermediate  trans¬ 
fer  function  are  then  found.  This  result  is  multiplied  by  the  discrete  contrib¬ 
ution  of  the  zero  order  hold  to  yield  the  desired  transform. 


The  algorithm  used  for  computing  the  partial  fraction  expansion  requires 
the  following  constraints  on  the  s  plane  transfer  function.  Multiple  poles  are 
not  allowed  except  for  those  at  the  origin.  The  poles  at  the  origin  (including 
the  1/s  from  the  zero  order  hold  if  there  is  one)  must  be  5  or  less.  Also,  the 
degree  of  the  numerator  must  not  be  greater  than  the  number  of  poles  not  at  the 
origin. 


»rsv 


X 


X 


V 


SZMRX 


Identification 

SUBROUTINE  SZMRX  -  LCAP2  Operator,  S  to  Z  Plane  Multirate  Transform 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  multirate  (slow  input,  fast  output)  s  to  z  plane  transform  using 
LCAP2  indices.  The  zero  order  hold,  if  included,  is  at  the  slower  input  sampling 
rate.  The  ratio  of  the  output/input  sampling  rates  must  be  an  integer. 

Usage 


CALL  SZMRX( I , J ) 


I  input  -  Index  of  z  plane  transfer  function 
J  input  -  Index  of  s  plane  transfer  function 


1.  SZMRX  parameters  are  in  COMMON/HEADDB/ .  They  are  to  be  set  before  SZMRX  is 
called.  These  parameters  are  defined  belowi 


parameter 

DELAY 

SAMPT 

NTGER 

ZOH 

Method 


preset  description 

0  Time  delay.  Center  negative  value  for  time  advance) 
1.  Sampling  period  of  the  faster  output  sampler 

1  Integer  ratio  of  output/input  sampling  rates 

(or,  input/output  sampling  periods) 

1  . NE.O  for  inclusion  of  zero  order  hold  at  the  input 


Partial  fraction  expansion  of  the  s  plane  transfer  function  (including  the 
1/s  from  the  zero  order  hold  if  there  is  one)  is  computed  by  subroutine  RESDU. 
Since  calculations  performed  in  the  w  plane  are  more  accurate  than  those  in  the 
z  plane,  the  w  transform  (at  the  faster  output  sampling  rate)  of  each  term  of  the 
expansion  is  then  computed.  Next,  the  terms  of  the  expansion  are  summed  and 
rationalized.  Roots  of  this  intermediate  transfer  function  are  then  found. 
This  result  is  multiplied  by  the  discrete  contribution  of  the  zero  order  hold 
(which  is  at  the  slower  input  sampling  rate)  to  yield  the  w  plane  form  of  the 
desired  transform.  Next,  subroutine  WZTRANS  is  called  to  transform  the  roots  w 
plane  roots  to  the  z  plane.  The  coefficients  of  the  z  plane  transfer  function 
are  then  computed. 


The  code  for  this  routine  is  in  subroutine  SNMRX. 


The  algorithm  usad  for  computing  tha  partial  fraction  expansion  requires 
the  following  constraints  on  the  s  plane  transfer  function.  Multiple  poles  are 
not  allowed  except  for  those  at  the  origin.  The  poles  at  the  origin  (including 
the  1/s  from  the  zero  order  hold  if  there  is  one)  must  be  5  or  less.  Also*  the 
degree  of  the  numerator  must  not  be  greater  than  the  number  of  poles  not  at  the 
origin. 

Requirements 


COMMON  blocksi  INTCOM, HEADDB, PRNCTL , TFTEMP 

LCAP2  routines!  ENDLINE, FETTFX, OPPRN, PPEQU, PROOT , RREQU, STRTFX,TFPRN1, 
TFPRN4 , WMRTRAN , WZTRANS 


szm i 


Identification 

SUBROUTINE  SZXFM  -  LCAP2  Operator,  S  To  Z  Plane  Transform 
CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  sampled-data  transform  from  s  to  z  plane  using  LCAP2  indices. 


Usage 


CALL  SZXFM(I,J) 

I  input  -  Index  of  z  plane  transfer  function 
J  input  -  Index  of  s  plane  transfer  function 

1.  SZXFM  parameters  are  in  COMMON/HEADDB/ .  See  description  for  SWXFM. 

Method 

Partial  fraction  expansion  of  s  plane  transfer  function  (including  the  1/s 
from  the  zero  order  hold  if  there  is  one)  is  computed  by  subroutine  RESDU.  Since 

calculations  performed  in  the  w  plane  are  more  accurate  than  those  in  the  z 

plane,  the  w  transform  of  each  term  of  the  partial  fraction  expansion  is  com¬ 
puted.  Next,  the  terms  of  the  expansion  are  summed  and  rationalized.  Roots  of 

this  intermediate  transfer  function  are  then  found.  This  result  is  multiplied  by 
the  discrete  contribution  of  the  zero  order  hold  to  yield  the  w  plane  form  of  the 
desired  transform.  Next,  subroutine  WZTRANS  is  called  to  transform  the  w  plane 
roots  to  the  z  plane.  The  coefficients  of  the  z  plane  transfer  function  are  then 
computed. 

Restriptions 

Same  restrictions  on  s  plane  transfer  function  that  apply  for  SWXFM.  For 
higher  order  s  plane  transfer  functions,  the  w  plane  transform  will  be  more 
accurate  than  the  z  plane  transform.  To  determine  differences  in  numerical  accu¬ 
racies,  compute  both  w  and  z  plane  transforms  and  compare  frequency  responses. 

Requirements 

COMMON  blocks ■  HEADDB , PRNCTL , TFTEMP 

LCAP2  routines >  ENDLINE, FCNPLN, FCNW1 , FCNW2, FETTFX, HOLLI , OPPRN, PROOT, 
STRTFX , TFPRN1 , TFPRN4 , WTRANS , WZTRANS 
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TFPRN1 

Identification 

SUBROUTINE  TFPRN1  -  Print  Out  Transfer  Function 
CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Print  out  transfer  function  coefficients  and  roots  under  control  of 
PRNFLG1. 

Usage 


CALL  TFPRN1(IPLANE,I,TFPI,TFRI,IN,ID) 


IPLANE  input 

I 

input 

TFPI 

input 

TFRI 

input 

IN 

input 

ID 

input 

1. 

Flag  PRNI 

=1HS  for  s  plane,  =1HW  for  w  plane,  =1HZ  for  z  plane 
Identifier  (.GT.O)  used  for  labeling  printout 
Transfer  function  coefficient  array  (LCAP2  format) 
Complex  transfer  function  root  array  (LCAP2  format) 
=1  for  numerator  coefficient  form  only 
=0  for  numerator  coefficient  and  root  form 
=1  for  denominator  coefficient  form  only 
=0  for  denominator  coefficient  and  root  form 


, E9.0  will  suppress  the  print¬ 


out  . 


Requirements 


COMMON  blocks «  PRNCTL 
LCAP2  routines i  PPRN1,RTPRN2 


TFPRN4 


Identification 

SUBROUTINE  TFPRN4  -  Print  Out  Transfer  Function 
COC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Print  out  transfer  function  coefficients  and  roots  under  control  of 
PRNFLG4 . 

Usage 


CALL  TFPRN4( IPLANE, I,TFPI,TFRI,IN,ID) 


IPLANE  input 

I 

input 

TFPI 

input 

TFRI 

input 

IN 

input 

ID 

input 

1. 

Flag  PRNI 

=1HS  for  s  plane,  =1HW  for  w  plane,  =1HZ  for  z  plane 
Identifier  (.GT.O)  used  for  labeling  printout 
Transfer  function  coefficient  array  (LCAP2  format) 
Complex  transfer  function  root  array  (LCAP2  format) 
=1  for  numerator  coefficient  form  only 
=0  for  numerator  coefficient  and  root  form 
=1  for  denominator  coefficient  form  only 
=0  for  denominator  coefficient  and  root  form 


out . 


Rgauironrents 

COMMON  blocks.  PRNCTL 
LCAP2  routines.  PPRN1,RTPRN2 


TSPLOT 


Identification 

SUBROUTINE  TSPLOT  -  Time  Response  Plot 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Plot  time  response  computed  by  either  STIME  or  ZTIME.  This  subroutine  is 
called  by  STIME1  or  ZTIME1. 

Usage 


CALL  TSPLOTINI, TPOINT, YPOINT) 

NI  input  -  Number  of  plot  points  in  arrays  TPOINT  and  YPOINT 
TPOINT  input  -  Array  of  time  points  ( DIMENSION=1500) 

YPOINT  input  -  Array  of  time  response  points  (DIMENSION=1500) 

1.  Time  response  plot  parameters  are  in  COMMON/HEADDB/ .  See  description  of 
STIME. 

Requirements 

COMMON  blocks)  AWORDS, HEADDB, PL0T1 
LCAP2  routines.  ELPL0T1 , OSCALE 


s 


Identification 

SUBROUTINE  USRNOTE  -  User  Note  For  Additional  Labeling  Of  Nichols  Plot 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

This  is  a  dummy  subroutine  to  satisfy  the  loader  if  the  user  does  supply 
his/her  own  code  for  this  routine.  USRNOTE  is  intended  to  be  used  for  additional 
annotation  on  the  right  portion  of  the  Nichols  plot. 

Usage 


CALL  USRNOTE 

1.  Code  has  been  written  for  specific  Aerospace  studies  to  provide  additional 
annotation  of  the  Nichols  plot.  An  example  will  be  given  in  a  future 
revision  of  this  report. 

Requirements 


COMMON  blocks <  none 
LCAP2  routines i  none 


SUBROUTINE  WELCR  -  LCAP2  Operator,  Eliminate  Common  Roots  Of  W  Plane 

Transfer  Function 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Eliminate  common  roots  from  a  w  plane  transfer  function  using  an  LCAP2 
index . 

Usage 

CALL  WELCRCI) 

I  input  -  Index  of  w  plane  transfer  function 

1.  Common  root  elimination  parameters  ECRE1  ( preset=2 . E-4 )  and  ECRE2 
(preset=l.E-8)  are  in  COMMON/HEADDB/ . 

Method 

If  a  numerator  root  nrt  and  a  denominator  root  drt  are  found  such  that 
ABS(drt/nrt  -  ( 1 . , 0 . ) ) . LT . ECRE1  for  nrt.NE.O  or  ABSCdrt) . LT . ECRE2  for  nrt.EQ.O, 
roots  nrt  and  drt  are  considered  to  be  common  roots  and  will  he  eliminated  from 
the  transfer  function. 

The  code  for  this  routine  is  in  subroutine  SELCR. 


Rggyirginept;? 

COMMON  blocks >  INTCOM,PRNCTL,TFTEMP 

LCAP2  routines <  CRELIM, ENDLINE, FCNPLN, FETTFX, OPMESG, OPPRN, PROOT, PSYNTH, 
RREQU, RTPRNO , STRTFX, TFPRN1 , TFPRN4 


COMPLEX  FUNCTION  HFAUX  -  Evaluate  H  Plane  Transfer  Function  Coefficient  Array 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
P.MCPQSQ 

Evaluate  w  plane  transfer  function  coefficient  array  (LCAP2  format)  for  use 
in  computing  the  frequency  response.  This  complex  function  can  be  used  by  sub¬ 
routine  FREQH1  or  FREQH2  to  evaluate  the  transfer  function  specified  by  is  first 
argument.  It  can  also  be  used  by  usei — supplied  subroutines  similar  to  WFAUX1 . 

This  subroutine  can  also  evaluate  the  multirate  (fast  input,  slow  output) 
response  of  the  transfer  function. 

Usaae 


WFAUX(TFC) 

TFC  input  -  Transfer  function  coefficient  array  (LCAP2  format) 

NFAUX  output  -  Complex  value  of  response 

1.  Independent  w  plane  frequency  used  in  evaluation  of  the  response  is  com¬ 
puted  by  the  program  using  real  frequency  X  of  COMMON/FRQBLK/  and  sampling 
period  SAMPT  of  COMMON/HEADDB/ . 

2.  If  MMTGER  of  COMMON/FRQBLK/  is  .GT.O,  the  multirate  response  is  computed  by 
using  Sklansky's  frequency  decomposition  method.  MMTGER  is  the  ratio  of  the 
(output/input)  sampling  periods  and  SAMPT  is  the  sampling  period  of  the 
faster  input  sampler. 

ttelbad 

The  code  for  this  routine  is  in  subroutine  ZFAUX. 

Requirements 


COMMON  blocksi  FRQBLK , HEADDB , LENGTH 
LCAP2  routines:  none 


wfauxi 


COMPLEX  FUNCTION  WFAUX1  -  Evaluate  H  Plane  Transfer  Function  Coefficient  Array 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 

Purpose 

This  complex  function  is  similar  to  WFAUX  except  that  it  is  written  so  that 
it  can  be  easily  modified  by  the  user  to  allow  creation  of  a  user — defined  w  plane 
transfer  function. 

Usage 

WFAUXl(TFC) 

TFC  input  -  Transfer  function  coefficient  array  CLCAP2  format) 

WFAUX1  output  -  Complex  value  of  the  response 

Method 

This  complex  function  has  only  one  line  of  code 
WF  AUX1 "  WF AUXC  T  FC ) 

so  that  it  will  yield  the  same  results  as  WFAUX. 

To  create  a  usei — defined  w  plane  transfer  function/  a  different  value  is 
returned  for  WFAUX1 .  For  example/  if  the  function  is 

WPTF2  +  WPTF4/2. 

the  user  would  change  the  FORTRAN  code  to 

WFAUXI = WFAUX (WPTF2)  +  WFAUX(WPTF4)/2 . 


The  argument  TFC  must  be  an  array  in  memory.  Since  only  the  first  five  w 
plane  transfer  functions  are  in  COMMON/SCMBLK/  and  all  others  are  on  a  disk 
file/  only  WPTFlz  WPTF2/  WPTF3/  WPTF4  and  WPTF5  can  be  used  to  create  a 
user-defined  w  plane  transfer  function.  However,  the  user  can  define  additional 
transfer  function  coefficient  arrays  in  a  separate  labeled  common  block  to  be 
accessible  by  WFAUX.  Subroutine  FETWTF  can  be  used  to  copy  transfer  functions 
from  the  disk  file  to  the  transfer  function  in  this  common  block. 
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Identification 

SUBROUTINE  WFREQ  -  LCAP2  Operator/  W  Plane  Frequency  Response 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Evaluate  w  plane  frequency  response  using  an  LCAP2  index.  Automatic  fre¬ 
quency  mode  available  to  allow  program  to  dynamically  choose  its  own  frequency 
points  to  yield  a  smooth  plot  of  the  response. 

Usage 

CALL  WFREQ(I) 

I  input  -  Index  of  w  plane  transfer  function 

1.  Frequency  response  parameters  are  in  COMMON/HEADDB .  They  are  to  be  set 
before  WFREQ  is  called.  See  description  of  SFREQ  for  the  complete  list  of 
definitions  of  these  parameters.  The  parameter  SAMPT  is  described  belowt 

parameter  preset  description 

SAMPT  1  Sampling  period 

Method 

Same  as  that  described  in  detail  in  description  of  SFREQ. 

In  the  automatic  frequency  mode  (FAUTO=0)  the  program  will  avoid  using  fre¬ 
quency  values  at  or  near  the  half  sampling  frequency.  W  plane  frequencies  (im¬ 
aginary  part)  greater  than  1000.  will  not  be  used. 

The  code  for  this  routine  is  in  subroutine  SFREQ. 

Safluiraasnis 

COMMON  blocks.  FRQBLK, INTCOM, PRNCTL , TFTEMP,// 

LCAP2  routines .  ENDLINE, FCNPLN, FETTFX, FREQS2, FREQW2, FREQZ2, OPMESG, SFAUX, 
WFAUX, ZFAUX 


HFREQY 


Identification 

SUBROUTINE  HFREQY  -  Evaluate  Frequency  Response  Of  A  H  Plane  Transfer 

Function  Coefficient  Array 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Evaluate  frequency  response  of  a  w  plane  transfer  function  coefficient 
array.  User  supplies  name  of  the  array. 

Usage 


CALL  HFREQY(TFC) 

TFC  input  -  Transfer  function  coefficient  array  (LCAP2  format) 

1.  Frequency  response  parameters  are  in  COMMON/HEADDB/ .  See  description  of 
subroutine  SFREQ  for  definition. 

Restrictions 

If  LCAP2  defined  transfer  function  coefficient  arrays  are  to  be  used,  only 
the  first  five  transfer  functions  for  each  plane  are  available  since  the  others 
are  on  disk  files.  However,  a  user  common  block  can  be  defined  so  that  these  oth¬ 
er  transfer  functions  can  be  first  transferred  from  disk  file  to  memory  so  that 
HFREQY  can  be  used. 

Requirement? 


COMMON  blocksi  FRQBLK 
LCAP2  routines!  FREQW2.WFAUX 


HLSCI 


SUBROUTINE  MLOCI  -  LCAP2  Operator,  M  Plane  Root  Locus 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 


Purpose 


Evaluate  w  plane  root  locus  using  an  LCAP2  index.  Automatic  gain  selection 
available  to  supplement  user  selected  gains. 


Usage 


CALL  MLOCI Cl) 


I  input  -  Index  of  w  plane  transfer  function  to  be  evaluated 


1.  Root  locus  parameters  are  in  COMMON/HEADDB/ .  They  are  to  be  set  before 
MLOCI  is  called.  See  description  of  SLOCI  for  a  complete  list  of  def¬ 
inition  of  these  parameters. 


Method 


Same  as  that  described  in  detail  in  description  of  SLOCI, 


The  code  for  this  routine  is  in  subroutine  SLOCI , 


aui remeni 


COMMON  blocks:  INTCOM, PRNCTL , TFTEMP , // 

LCAP2  routines:  ENDLINE, FCNPLN, FETTFX, OPMESG, RL0CUS1 , TFPRN1 


,v  VV-V  v 
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HMFAUX 


COMPLEX  FUNCTION  WMFAUX1  -  Evaluate  Multi  rate  H  Plane  Transfer  Function 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 


Purpose 


Evaluate  multirate  (fast  input,  slow  output)  response  of  a  w  plane  transfer 
function  in  coefficient  form  for  use  in  computing  the  frequency  response.  This 
complex  function  can  be  used  by  subroutines  FREQMM1  or  FREQWM2  to  evaluate  the 
transfer  function  specified  by  its  first  argument. 


Usage 

HMFAUX ( TFC, M, T ) 

TFC  input  -  Transfer  function  coefficient  array  (LCAP2  format) 

M  input  -  Integer  ratio  of  output/input  sampling  periods 

T  input  -  Sampling  period  of  slower  outout  sampler 

HMFAUX1  output  -  Complex  value  of  response 


Method 

Sklansky's  frequency  decomposition  method  is  used  to  evaluate  the  transfer 
function. 


COMMON  blocks >  FRQBLK, HEADDB 
LCAP2  routines i  HFAUX 
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WMRFQ 


SUBROUTINE  WMRFQ  -  LCAP2  Operator,  W  Plane  Multirate  Frequency  Response 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 


Evaluate  multirate  (fast  input,  slow  output)  frequency  response  of  a  w 
plane  transfer  function  using  an  LCAP2  index. 


Usage 

CALL  WMRFQ ( I, M) 

I  input  -  Index  of  w  plane  transfer  function 
M  input  -  Integer  ratio  of  output/input  sampling  periods 

1.  The  input  w  plane  transfer  function  is  at  the  faster  sampling  rate. 

2.  Frequency  response  parameters  are  in  CQMMON/HEADDB/ .  See  description  of 
SFREQ . 

3.  The  sampling  period,  SAMPT ,  is  for  the  slower  output  sampler. 

Method 

The  frequency  response  is  evaluated  by  direct  application  of  Sklansky's 
frequency  decomposition.  No  explicit  rational  representation  of  the  slower  out¬ 
put  transform  is  computed.  If  an  explicit  representation  of  the  slower  output 
transfer  function  is  desired,  see  LCAP2  operator  WMRXFM. 


COMMON  blocks .  INTCOM, FRQBLK, PRNCTL , TFTEMP 

LCAP2  routines.  ENDLINE, FCNPLN, FCNW1 , FETTFX, FREQWM2, FREQZM2, OPMESG, 
TFPRN1 , WFAUX, ZFAUX 
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Identification 

SUBROUTINE  WMRFQY  -  Evaluate  Multirate  Frequency  Response  Of  A  W  Plane 

Transfer  Function  Coefficient  Array 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 

Eurpast 

Evaluate  multirate  (fast  input*  slow  output)  frequency  response  of  a  w 
plane  transfer  function  in  coefficient  form.  User  supplies  the  name  of  the 
array. 

Usage 


CALL  WMRF9Y(TFC,M) 

TFC  input  -  Transfer  function  coefficient  array  (LCAP2  format)  at  the  faster 
input  sampling  rate 

M  input  -  Integer  ratio  of  output/input  sampling  periods 

1.  Frequency  response  parameters  are  in  COMMON/HEADDB/ .  See  description  of  of 
SFREQ. 

2.  The  sampling  period*  SAMPT*  is  for  the  slower  output  sampler. 

Method 

If  LCAP2  defined  transfer  function  coefficient  arrays  are  to  be  used*  only 
the  first  five  transfer  functions  for  each  plane  are  available  since  the  others 
are  on  disk  files.  However*  a  user  common  block  can  be  defined  so  that  these  oth¬ 
er  transfer  functions  can  be  first  transferred  from  disk  file  to  memory  so  that 
WMRFRQY  can  be  used. 

Requirements 


COMMON  blocks t  FRQBLK 
LCAP2  routinesi  FREQWM2.HFAUX 


WMRTRAN 


SUBROUTINE  WMRTRAN  - 
CDC  FORTRAN  4 
E.  A.  Lea 

Aerospace  Corporation 


Compute  S  To  W  Plane  Transformation 


Purpose 

Compute  multirate  (slow  input,  fast  output)  s  to  w  plane  transformation. 
This  subroutine  is  called  by  SWMRX. 


Usage 


CALL  WMRTRAN(PNS, PDS, RTNS, RTDS, PNW, PDW, RTNW, RTDW, T, DELAY, IZOH) 


S  plane  numerator  poly,  coefficient  array  (LCAP2  format) 

S  plane  denominator  poly,  coefficient  array  (LCAP2  format) 
S  plane  numerator  poly,  root  array  (LCAP2  format) 

S  plane  denominator  poly,  root  array  (LCAP2  format) 

W  plane  numerator  poly,  coefficient  array  (LCAP2  format) 

W  plane  denominator  poly,  coefficient  array  (LCAP2  format) 
W  plane  numerator  poly,  root  array  (LCAP2  format) 

W  plane  denominator  poly,  root  array  (LCAP2  format) 
Sampling  period 
Time  delay 

.NE.O  for  inclusion  of  zero  order  hold 


must  be  set  before  WMRTRAN  is  called. 


PNS 

input 

PDS 

input 

RTNS 

input 

RTDS 

input 

PNW 

output 

PDW 

output 

RTNW 

output 

RTDW 

output 

T 

input 

DELAY 

input 

IZOH 

input 

1. 

NTGER,  i 

Maihad 


See  description  of  SWMRX. 


The  code  for  this  routine  is  in  subroutine  WTRANS. 


See  description  of  SWMRX. 


COMMON  blocks i  HEADDB, INTCOM, PRNCTL ,// 

LCAP2  routines i  CRELIM, PEQUAL , PMULT , PPADD, PPRINT , PPZERO , PROOT , PSYNTH , 
RESDU, RPRINT, RREQU, RRTAD1 , RRTPRN , RRZERO , RTADD, RTPRNO , 
RZERO,TFRPRN 
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MMRXFM 


Identification 

SUBROUTINE  HMRXFM  -  LCAP2  Operator,  Multi  rate  (fast  input,  slow  output 

sampler)  W  Transform 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  the  output  w  transform  of  a  fast  to  slow  sampler  using  LCAP2 
indices.  This  operation  will  yield  a  rational  transfer  function  at  the  slower 
sampling  rate. 

.Usaflfi 


CALL  HMRXFM(I,J) 

I  input  -  Index  of  resultant  slower  output  w  plane  transfer  function 
J  input  -  Index  of  faster  input  w  plane  transfer  function 

1.  The  integer  ratio,  output/input  sampling  periods,  NTGER,  of  COMMON/HEADDB/ 
must  be  set  before  this  subroutine  is  called. 

Hethttd 

The  faster  input  transfer  function  is  first  transformed  to  the  z  plane. 
The  output  transfer  function  of  a  fast  to  slow  rate  sampler  is  then  given  in  the 
z  plane  by  Sklansky's  frequency  decomposition  method  as, 

nzl 

1  \ 

\  T/n  j2*pi*k/n 
n  /  G  (z  e  ) 

/  n 

k=l 

T/n 

where  G  (z  )  is  the  z  plane  transfer  function  at  the  faster  sampling  rate 
n 

and  n  is  the  integer  ratio  of  the  output/input  sampling  periods.  Using  the  root 
form  representation  of  the  input  transform,  a  rational  representation  of  the 
slower  rate  output  transfer  function  is  computed.  This  transfer  function  is  then 
transformed  to  the  w  plane. 

The  code  for  this  routine  is  in  subroutine  ZMRXFM. 


HMflRH 


Uanlifiaaiian 

SUBROUTINE  WNORM  -  LCAP2  Operator*  Normalize  W  Plane  Transfer  Function 
CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 

Eacgasa 

Normalize  w  plane  transfer  function  using  an  LCAP2  index.  Normalization  can 
be  either  with  respect  to  the  low  order  non-zero  coefficient  or  the  high  order 
coefficient  of  the  denominator. 

Usage 


CALL  HNORM(I) 


I  input  -  Index  of  the  w  plane  transfer  function 

1.  Normalization  parameters  are  in  COMMON/HEADDB/ .  They  are  to  be  set  before 
NNORM  is  called.  These  parameters  are  defined  below ■ 


parameter 

KNORM 

KNRMFG 


preset  description 

1.  Value  used  for  normalizing  the  transfer  function 
0  If  . EQ.O,  the  low  order  non-zero  coefficient  of  the 
denominator  is  set  equal  to  the  value  of  KNORM  and 
all  other  coefficients  are  normalized  to  this  value. 

If  KN0RM=1.,  the  low  order  non-zero  coefficient  of  the 
numerator  is  the  Bode  gain. 

If  . NE.O,  the  high  order  coefficient  of  the  denominator 
is  set  equal  to  the  value  of  KNORM  and  all  other  coeffi¬ 
cients  are  normalized  to  this  value.  If  KN0RM=1.,  the 
high  order  coefficient  of  the  numerator  is  the  root 
locus  gain. 


The  code  for  this  routine  is  in  subroutine  SNORM. 


Restrictions 

KNORM  cannot  be  zero. 

Requirements 

COMMON  blocks i  INTCOM, PRNCTL , TFTEMP 

LCAP2  routines ■  ENDLINE, FCNPLN, FETTFX, NORM, OPMESG, STRTFX,TFPRN1 , TFPRN4 
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HPAPP 


SUBROUTINE  NPADD  -  LCAP2  Operator,  W  Plane  Transfer  Function  Add 
CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Add  two  w  plane  transfer  functions  using  LCAP2  indices. 

Usage 

CALL  WPADD(I,J,K) 

I  input  -  Index  of  resultant  transfer  function  sum 

J  input  -  Index  of  first  transfer  function  to  be  added 

K  input  -  Index  of  second  transfer  function  to  be  added 


Method 


The  code  for  this  routine  is  in  subroutine  SPADD. 


The  degree  of  the  transfer  functions  must  be  less  than  50. 


COMMON  blocks i  PRNCTL,TFTEMP 

LCAP2  routines s  ENDLINE, FETTFX,OPPRN, PPADD, RRTADD, STRTFX, TFPRN1 , TFPRNA 


new 
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SUBROUTINE  WPDIV  -  LCAP2  Operator,  M  Plane  Transfer  Function  Divide 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Divide  two  w  plane  transfer  functions  using  LCAP2  indices. 

Usage 

CALL  WPDIVCI,J,K) 

I  input  -  Index  of  resultant  transfer  function 

J  input  -  Index  of  dividend  transfer  function 

K  input  -  Index  of  divisor  transfer  function 

lethqri 

The  code  for  this  routine  is  in  subroutine  SPDIV. 

Restrictions 

The  degree  of  the  transfer  functions  must  be  less  than  50. 

RegMircmanla 


COMMON  blocks  I  PRNCTL,TFTEMP 

LCAP2  routines*  ENDLINE, FETTFX, OPPRN, PMULT , PSYNTH, RTMPY , STRTFX, TFPRN1 
TFPRN4 


SUBROUTINE  WPEQU  -  LCAP2  Operator,  N  Plane  Equal 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Equate  w  plane  transfer  functions  using  LCAP2  indices. 


Usage 

CALL  WPEOUC I , J ) 

I  input  -  Index  of  resultant  transfer  function 
J  input  -  Index  of  transfer  function  to  be  equated  with 

Method 

The  code  for  this  routine  is  in  subroutine  SPEQU. 

Restrictions 

The  degree  of  the  transfer  functions  must  be  less  than  50. 

Requirements 


COMMON  blocks:  0VC0M, PRNCTL , TFTEMP 

LCAP2  routines:  ENDLINE, FETTFX,0PPRN, PPEQU, RRTEQU, STRTFX, TFPRN1 , TFPRN4 


SUBROUTINE  HPLDC  -  LCAP2  Operator*  Load  Coefficients  Into  N  Plane  Transfer 

Function 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Load  coefficients  into  w  plane  transfer  function  using  an  LCAP2  index. 


Usage 


CALL  HPLDCCI) 

I  input  -  Index  where  transfer  function  is  to  be  stored 

1.  Transfer  function  coefficients  are  entered  with  polynomial  coefficient 
arrays  POLYN  and  POLYD  (LCAP2  format)  which  are  in  COMMON/HEADDB/ .  They  are 
to  be  set  before  NPLDC  is  called. 

2.  The  calling  program  must  include  COMMON/HEADDB/  and  the  appropriate  DIMEN¬ 
SION  and  EQUIVALENCE  statements  for  POLYN  and  POLYD. 

3.  The  roots  of  HPTFi  will  not  be  automatically  computed.  If  this  is  desired* 
follow  this  operation  with  the  operator  NPRTSCI). 

Hfiihad 

The  code  for  this  routine  is  in  subroutine  SPLDC. 

RttstrisAipna 

The  degree’ of  the  transfer  function  must  be  less  than  50. 

foMMir.omgnts 


COMMON  blocks i  INTCOM* HEADDB, PRNCTL *TFTEMP 

LCAP2  routines i  ENDLINE* FCNPLN, OPMESG, PEQUAL , PPRN1 , STRTFX, TFPRN4 


HPLPR 
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Identification 
SUBROUTINE  NPLOR 


LCAP2  Operator*  Load  H  Plane  Transfer  Function  In 
Root  Form 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 


Eur.Rffig.ft 

Load  roots  into  w  plane  transfer  function  using  an  LCAP2  index. 

jjg.ffi.afl 

CALL  NPLfRCI) 

I  input  -  Index  where  transfer  function  is  to  be  stored 


Transfer  function  roots  are  entered  with  polynomial  coefficient  arrays 
ROOTN  and  ROOTD  (LCAP2  format)  which  are  in  COMMON/HEADDB/ .  They  are  to  be 
set  before  WPLDR  is  called. 


2. 


The  calling  program  must  include  COMMON/HEADDB/  and  the  appropriate  DIMEN¬ 
SION  and  EQUIVALENCE  statements  for  ROOTN  and  ROOTD. 


ttftthffid 

The  code  for  this  routine  is  in  subroutine  SPLDR. 

Rffigtriffitiffing 

The  degree  of  the  transfer  function  must  be  less  than  50. 

RftymirftWftntg 


COMMON  blocks  I  INTCOM*  HEADDB  *  PRNCTL , TFTEMP 

LCAP2  routines i  ENDLINE* FCNPLN, OPMESG , PSYNTH , RTEQU , RTPRN2 * STRTFX, TFPRN4 
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MPMPY 


SUBROUTINE  HPMPY  -  LCAP2  Operator,  W  Plane  Transfer  Function  Multiply 
COC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 

Putpp&a 

Multiply  two  w  plane  transfer  functions  using  LCAP2  indices. 

Usage 

CALL  WPMPY ( I ,  J ,  K  ) 

I  input  -  Index  of  resultant  transfer  function  product 

J  input  -  Index  of  first  transfer  function  to  be  multiplied 

K  input  -  Index  of  second  transfer  function  to  be  multiplied 

Method 

If  only  the  coefficients  of  the  j-th  and  k-th  transfer  functions  are  avail¬ 
able,  the  product  is  computed  by  multiplication  of  the  coefficients.  If  the 
roots  of  the  j-th  and  k-th  transfer  functions  are  available,  the  product  is  com¬ 
puted  by  combining  the  roots.  The  coefficients  of  the  product  are  then  formed 
from  these  roots. 

The  code  for  this  routine  is  in  subroutine  SPMPY. 


COMMON  blocks i  PRNCTL,TFTEMP 

LCAP2  routines i  ENDLINE, FCNW1 , FCNW2, FETTFX, OPPRN, PMULT , PSYNTH, RTMPY, 
STRTFX, TFPRN1 , TFPRN4 


SUBROUTINE  WPPRN  -  LCAP2  Operator,  Print  Out  H  Plane  Transfer  Function 
CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Print  out  w  plane  transfer  function  using  an  LCAP2  index. 


Usage 


CALL  WPPRN(I) 

I  input  -  Index  of  transfer  function  to  be  printed  out 

Roots  of  the  transfer  function  are  printed  out  only  if  they  are  defined 
(previously  computed  or  loaded  in).  The  coefficients  of  the  transfer  function 
are  printed  out  in  ascending  order. 

The  code  for  this  routine  is  in  subroutine  SPPRN. 

Requirements 


COMMON  blocks t  INTCOM,TFTEMP 

LCAP2  routines!  ENDLINE, FCNPLN, FETTFX,0PMESG,TFPRN4 


SUBROUTINE  WPRTS  -  LCAP2  Operator*  Find  Roots  Of  W  Plane  Transfer  Function 
CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Find  roots  of  a  w  plane  transfer  function  using  an  LCAP2  index. 

CALL  WPRTS(I) 

I  input  "  Index  of  w  plane  transfer  function 
Method 

Roots  of  the  numerator  and  denominator  are  computed  by  subroutine  PROOT. 
The  code  for  this  routine  is  in  subroutine  SPRTS. 


If  the  roots  of  WPTFi  were  previously  computed  or  loaded  in,  the  program 
will  not  recompute  the  roots  from  the  coefficients.  A  message  to  this  effect 
will  be  printed. 

Rtquixtmcnte 

COMMON  blocks*  INTCOM, PRNCTL , TFTEMP 

LCAP2  routines i  ENDL INE, FCNPLN, FCNW1 , FETTFX, OPMESG, PROOT, STRTFX, TFPRN1 , 
TFPRNA 


SUBROUTINE  NPSUB  -  LCAP2  Operator*  W  Plane  Transfer  Function  Subtract 
CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Subtract  two  w  plane  transfer  functions  using  LCAP2  indices. 


Usage 


CALL  WPSUB(I,J,K) 

I  input  -  Index  of  resultant  transfer  function  difference 

J  input  -  Index  of  first  transfer  function  (minuend) 

K  input  -  Index  of  second  transfer  function  (subtrahend) 

Method 

The  code  for  this  routine  is  in  subroutine  SPSUB. 

Restrictions 

The  degree  of  the  transfer  functions  must  be  less  than  50. 

Ro<wir-*m.*nts 


COMMON  blocks!  PRNCTL » TFTEMP 

LCAP2  routines i  ENDLINE, FETTFX, OPPRN, PPSUB, RRTSUB, STRTFX, TFPRN1 , TFPRN4 


\WW 


HSJRAN1 


Identification 

SUBROUTINE  HSTRAN1  -  Transform  W  Plane  Roots  Into  S  Plane 
CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 

Evrpffgg 

Transform  w  plane  roots  into  "equivalent"  s  plane  roots.  The  transforma¬ 
tion  of  the  w  plane  roots  to  the  s  plane  is  not  unique.  The  "equivalent"  s  plane 
roots  are  provided  solely  to  aid  the  analyst  in  identifying  and  correlating  w 
plane  roots.  The  computed  s  plane  roots  are  not  saved.  This  subroutine  is 
called  by  HSXFM . 

Usage 


CALL  HSTRAN1(IPLANE,WPTF,HR00T,SAMPT) 


IPLANE 

input 

WPTF 

input 

HROOT 

input 

SAMPT 

input 

Method 

-  .LT.O  for  w  plane*  .GT.O  for  z  plane 

-  W  plane  transfer  function  coefficient  array  (LCAP2  format) 

-  N  plane  transfer  function  root  array  (LCAP2  format) 

-  Sampling  period 


See  description  for  HSXFM 
Requirements 


COMMON  blocksi  none 
LCAP2  routines!  RTPRNO 


HSXFN 


Identification 

SUBROUTINE  WSXFM  -  LCAP2  Operator,  Transform  W  Plane  Roots  Into  S  Plane 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Transform  w  plane  roots  into  "equivalent"  s  plane  roots  using  an  LCAP2 
index.  The  transformation  of  the  w  plane  roots  to  the  s  plane  is  not  unique.  The 
"equivalent”  s  plane  roots  are  provided  solely  to  aid  the  analyst  in  identifying 
and  correlating  w  plane  roots.  The  computed  s  plane  roots  are  not  saved. 

M.saafi 


CALL  WSXFM(I) 

I  input  -  Index  of  w  plane  transfer  function 

1.  Sampling  period,  SAMPT,  of  COMMON/HEADDB/  must  be  set  before  calling  this 
subroutine. 

Methad 

Transformation  of  the  roots  from  w  to  the  s  plane  is  defined  by 
s  =  ln(  (l+w)/(l-w)  )  /  SAMPT 

When  w  =  -1.0  or  +1.0  the  "equivalent"  s  plane  root  is  undefined.  If  ABS(l.-w) 
is  less  than  l.E-5,  the  equivalent  root  is  printed  out  as  999999.99.  If 
ABS(w+l.)  is  less  than  l.E-5,  the  equivalent  root  is  printed  out  as  -999999.99. 

Rsawiranaats 

COMMON  blocks!  INTCOM, HEADDB, PRNCTL , TFTEMP 

LCAP2  routines!  ENOL INE, FCNW2, FETTFX, OPMESG, TFPRN1 , NSTRAN1 


WTRANS 


Identification 

SUBROUTINE  HTRANS  -  Compute  S  To  H  Plane  Transformation 
CDC  FORTRAN  4 
E.  A.  lee 

Aerospace  Corporation 
Purpose 

Compute  stow  plane  transformation.  This  subroutine  is  called  by  SWXFM. 


Usage 


CALL  WTRANSIPNS, PDS, RTNS, RTDS, PNW, PDW, RTNW, RTDW, T, DELAY, IZOH) 


PNS 

input 

PDS 

input 

RTNS 

input 

RTDS 

input 

PNW 

output 

PDW 

output 

RTNW 

output 

RTDW 

output 

T 

input 

DELAY 

input 

IZOH 

input 

Mathed 

S  plane  numerator  poly,  coefficient  array  CLCAP2  format) 

S  plane  denominator  poly,  coefficient  array  CLCAP2  format) 
S  plane  numerator  poly,  root  array  (LCAP2  format) 

S  plane  denominator  poly,  root  array  (LCAP2  format) 

W  plane  numerator  poly,  coefficient  array  (LCAP2  format) 

W  plane  denominator  poly,  coefficient  array  CLCAP2  format) 
W  plane  numerator  poly,  root  array  CLCAP2  format) 

W  plane  denominator  poly,  root  array  (LCAP2  format) 
Sampling  period 
Time  delay 

.NE.O  for  inclusion  of  zero  order  hold 


See  description  of  SWXFM. 

Restrictions 

See  description  of  SWXFM. 

Reaui  rotten  Is 


COMMON  blockst  HEADDB, INTCOM, PRNCTl ,// 

LCAP2  routines!  CRELIM,PEQUAL,PMULT,PPADD,PPRINT,PPZERO,PROOT,PSYNTH, 
RESDU, RPRINT , RREQU, RRTADD, RRTPRN, RRZERO, RTADD, RTPRNO, 
RZERO,SUBP,TFRPRN 


SUBROUTINE  WZXFM  -  LCAP2  Operator,  W  to  Z  Plane  Transformation 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  w  to  z  plane  bilinear  transformation  using  an  LCAP2  index,  (notei 
the  w  is  not  the  w'  defined  by  the  Tustin's  bilinear  rule) 

Usage 

CALL  WZXFMt I , J ) 

I  input  -  Index  of  computed  z  plane  transfer  function 
J  input  -  Index  of  w  plane  transfer  function  to  be  transformed. 

1.  The  sampling  period,  SAMPT ,  of  COMMON/ HEADDB/  must  be  set  before  calling 
this  subroutine. 

Method 

Bilinear  transformation  is  implemented  by  transformation  of  the  w  plane 
roots.  This  method  is  more  accurate  than  the  method  described  by  A.C.  Davies 
(see  description  of  BILNNZ). 


Requirements 

COMMON  blocks:  INTCOM, PRNCTL , TFTEMP 

LCAP2  routines:  ENDLINE, FCNW1 , FCNW2, FETTFX, HOLLI , OPMESG, PROOT, STFTFX, 
TFPRN1 , TFPRN4 , WZTRANS , ZWTRANS 


XTRACT 


Identification 

SUBROUTINE  XTRACT  -  Extract  Root  Information  From  Packed  Word 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 

Purpose 

Extract  or  unpack  root  information  from  the  real  part  of  a  complex 
variable.  The  first  word  of  a  complex  root  array  (LCAP2  format)  contains  this 
packed  information. 

Usage 


CALL  XTRACT(ROOT, NUN, ICON, IR,IZ) 

ROOT  input  -  Complex  variable 

NUN  output  -  Total  number  of  roots 

ICON  output  -  Number  of  complex  roots 

IR  output  -  Number  of  real  roots  not  at  the  origin 

IZ  output  -  Number  of  roots  at  the  origin 

Method 

The  first  word  of  a  complex  array,  in  LCAP2  format,  is  used  to  store  infor¬ 
mation  characterizing  a  polynomial.  The  real  part  of  this  word  is  packed  as: 
(bit  1  is  the  unit  digit,  bit  2  is  the  tens  digit,  ..  etc.) 


Decimal  Digit 


Description 


1,2 

3,4 

5,6 

7,8 


Total  number  of  roots 

Number  of  complex  roots  (an  even  number) 
Number  of  real  roots  not  at  the  origin 
Number  of  roots  at  the  origin 


(Example:  REAL (ROOK  1 ) )  =  103048  would  yield,  NUN=8,  IC0N=4,  IR=3,  IZ=1) 


The  imaginary  part  of  the  first  word  of  a  complex  root  array  in  LCAP2  for¬ 
mat  is  the  low  order  non-zero  coefficient  of  the  polynomial.  This  value  is  not 
affected  by  this  subroutine. 


RtguiEwnonts 

CONNON  blocks:  none 
LCAP2  routines:  none 
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SUBROUTINE  ZELCR  -  LCAP2  Operator,  Eliminate  Common  Roots  Of  Z  Plane 

Transfer  Function 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 

Pyrpo.sq 

Eliminate  common  roots  from  a  z  plane  transfer  function  using  an  LCAP2 
index. 

Usage 

CALL  ZELCR(I) 

I  input  -  Index  of  z  plane  transfer  function 

1.  Common  root  elimination  parameters  ECRE1  (preset=2 . E-4)  and  ECRE2 
Cpreset=l.E-8)  are  in  COMMON/HEADDB/ . 

Method 

If  a  numerator  root  nrt  and  a  denominator  root  drt  are  found  such  that 
ABSCdrt/nrt  -  (1 . , 0 . ) ) . LT . ECRE1  for  nrt.NE.O  or  ABS( drt) . LT . ECRE2  for  nrt.EQ.O, 
roots  nrt  and  drt  are  considered  to  be  common  roots  and  will  be  eliminated  from 
the  transfer  function. 

The  code  for  this  routine  is  in  subroutine  SELCR. 


COMMON  blocks:  INTCOM, PRNCTL , TFTEMP 

LCAP2  routines:  CRELIM, ENDLINE, FCNPLN, FETTFX, OPMESG, ur^RN, PROOT, PSYNTH, 
RREQU, RTPRNO , STRTFX, TFPRN1 , TFPRN4 


SUBROUTINE  ZEQ1  -  Find  Number  of  Roots  Equal  to  One 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Find  the  number  of  roots  which  are  equal  to  or  are  nearly  equal  to  (1 
These  roots  are  moved  to  the  end  of  the  list  of  non-zero  roots. 

Usage 

CALL  ZEQ1(R00T,L) 

ROOT  input  -  Complex  polynomial  root  array  (LCAP2  format) 

L  output  -  Number  of  roots  =  (l.,0.)  found. 

Requirements 


COMMON  blocks <  none 
LCAP2  routines.  XTRACT 
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ZETAZXH 


Identification 

SUBROUTINE  ZETAZXH  -  Zeta  To  Z  Transformation 
CDC  FORTRAN  4 
E.  A.  Lea 

Aerospace  Corporation 
Purpose 

Compute  transformation  of  zeta  plane  roots  to  z  plane  roots.  This  subrou¬ 
tine  is  used  by  subroutine  MRXFM. 

Usage 

CALL  ZETAZXM(XRTF, YRTF, DELT) 

XRTF  input  -  Zeta  plane  polynomial  root  array  (LCAP2  format) 

YRTF  output  -  Z  plane  polynomial  root  array  (LCAP2  format) 

DELT  input  -  Reciprocal  of  radius  defining  zeta  transform 

Method 

Zeta  transformation  is  defined  by< 
z  *  (zeta  *  radius)  +  1. 

which  maps  the  unit  circle  in  the  z  plane  into  a  circle  in  the  left  half  zeta 
plane  with  the  origin  at  zeta  5  -radius. 

The  code  for  this  routine  is  in  subroutine  ZZETAXM. 

RgqMireinenta 

COMMON  blocks<  none 

LCAP2  routines:  RCLAS, RTPRNO , XTRACT 


ZEAUX 


Identification 

COMPLEX  FUNCTION  ZFAUX  -  Evaluate  Z  Plane  Transfer  Function  Coefficient  Array 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Evaluate  z  plane  transfer  function  coefficient  array  (LCAP2  format)  for  use 
in  computing  the  frequency  response.  This  complex  function  can  be  used  by  sub¬ 
routine  FREQZ1  or  FREQZ2  to  evaluate  the  transfer  function  specified  by  its 
first  argument.  It  can  also  be  used  by  usei — supplied  subroutines  similar  to 
ZFAUX1 . 

This  subroutine  can  also  evaluate  the  multirate  (fast  input,  slow  output) 
response  of  the  transfer  function. 

Usage 

ZFAUX(TFC) 

TFC  input  -  Transfer  function  coefficient  array  (LCAP2  format) 

ZFAUX  output  -  Complex  value  of  response 

1.  Independent  z  plane  frequency  used  in  evaluation  of  the  response  is  com¬ 
puted  by  the  program  using  real  frequency  X  of  COMMON/ FRQBLK/  and  sampling 
period  SAMPT  of  COMMON/HEADDB/ . 

2.  If  MMTGER  of  COMMON/ FRQBLK/  is  .GT.O,  the  multirate  response  is  computed  by 
using  Sklansky's  frequency  decomposition  method.  MMTGER  is  the  ratio  of  the 
(output/input)  sampling  periods  and  SAMPT  is  the  sampling  period  of  the 
faster  input  sampler. 

RfHMicflimnta 

COMMON  blocks i  FRQBLK, HEADDB, LENGTH 
LCAP2  routines!  none 


COMPLEX  FUNCTION  ZFAUX1  -  Evaluate  Z  Plane  Transfer  Function  Coefficient  Array 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

This  complex  function  is  similar  to  ZFAUX  except  that  it  is  written  so  that 
it  can  be  easily  modified  by  the  user  to  allow  creation  of  a  user-defined  z  plane 
transfer  function. 

Usage 

ZFAUX1CTFC) 

TFC  input  -  Transfer  function  coefficient  array  CLCAP2  format) 

ZFAUX1  output  -  Complex  value  of  the  response 

Method 

This  complex  function  has  only  one  line  of  code 
ZFAUX1=ZFAUX(TFC) 

so  that  it  will  yield  the  same  results  as  MFAUX. 

To  create  a  user  defined  z  plane  transfer  function?  a  different  value  is 
returned  for  ZFAUX1 .  For  example?  if  the  function  is 

ZPTF2  +  ZPTF4/2. 

the  user  would  change  the  FORTRAN  code  to 

ZFAUX1=ZFAUXLZPTF2>  +  ZFAUXLZPTF4V2 . 


The  argument  TFC  must  be  an  array  in  memory.  Since  only  the  first  five  z 
plane  transfer  functions  are  in  COMMON/SCMBLK/  and  all  others  are  on  a  disk 
file?  only  ZPTF1?  ZPTF2?  ZPTF3?  ZPTF4  and  ZPTF5  can  be  used  to  create  a 
user-defined  z  plane  transfer  function.  However?  the  user  can  define  additional 
transfer  function  coefficient  arrays  in  a  separate  labeled  common  block  to  be 
accessible  by  ZFAUX.  Subroutine  FETZTF  can  be  used  to  copy  transfer  functions 
from  the  disk  file  to  the  transfer  function  in  this  common  block. 


ZFREQ 


.V.' 


m 


Identification 


SUBROUTINE  ZFREQ  -  LCAP2  Operator, 
CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 


Z  Plane  Frequency  Response 


Purpose 


Evaluate  z  plane  frequency  response  using  an  LCAP2  index.  Automatic  fre¬ 
quency  mode  available  to  allow  program  to  dynamically  choose  its  own  frequency 
points  to  yield  a  smooth  plot  of  the  response. 


Usage 


CALL  ZFREQ(I) 


I  input  -  Index  of  z  plane  transfer  function 


1.  Frequency  response  parameters  are  in  COMMON/HEADDB.  They  are  to  be  set 
before  ZFREQ  is  called.  See  description  of  SFREQ  for  the  complete  list  of 
definitions  of  these  parameters.  The  parameter  SAMPT  is  described  belowt 


parameter  preset 
SAMPT  1 


description 
Sampling  period 


Method 

Same  as  that  described  in  detail  in  description  of  SFREQ. 
The  code  for  this  routine  is  in  subroutine  SFREQ. 
Requirenients 


COMMON  blocks:  FRQBLK, INTCOM, PRNCTL , TFTEMP,// 

LCAP2  routines :  ENDLINE, FCNPLN, FETTFX, FREQS2, FREQW2, FREQZ2, OPMESG, SFAUX, 
WFAUX, ZFAUX 
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ZFREQY 


Identification 

SUBROUTINE  ZFREQY  -  Evaluate  Frequency  Response  Of  A  Z  Plane  Transfer 

Function  Coefficient  Array 

CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Evaluate  frequency  response  of  a  z  plane  transfer  function  coefficient 
array.  User  supplies  name  of  the  array. 

lis&as 


CALL  ZFREQY(TFC) 

TFC  input  -  Transfer  function  coefficient  array  (LCAP2  format) 

1.  Frequency  response  parameters  are  in  COMMON/HEADDB/ .  See  description  of 
subroutine  SFREQ  for  definition. 

Restrictions 

If  LCAPZ  defined  transfer  function  coefficient  arrays  are  to  be  used,  only 
the  first  five  transfer  functions  for  each  plane  are  available,  since  the  others 
are  on  disk  files.  However,  a  user  common  block  can  be  defined  so  that  these  oth¬ 
er  transfer  functions  can  be  first  transferred  from  disk  file  to  memory  so  that 
ZFREQY  can  be  used. 


COMMON  blocks i  none 

LCAPZ  routines!  FREQZ2,ZFAUX 


ZHOLLI 


Identification 

FUNCTION  ZHOLLI  -  Converts  Integer  To  Hollerith  Characters,  Zero  Filled 
On  The  Left 

CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Converts  integer  to  Hollerith  characters,  zero  filled  on  the  left. 


Usage 


ZHOLLI(I) 

I  input  -  Integer  between  0  and  100,  or  else  -1  or  -2 

ZHOLLI  output  -  Hollerith  representation  of  I  if  I  is  between  0  and  100 
(zero  filled  on  the  left  if  I  is  one  digit) 

=  2HN  if  I=-l 
=  2HD  if  I=-2 
=  Blank  otherwise 


Method 

The  code  for  this  function  is  in  function  HOLLI. 

R-eauiroments 


COMMON  blocks)  none 
LCAP2  routines)  none 


iUCI 


Identification 

SUBROUTINE  ZLOCI  -  LCAP2  Operator.  Z  Plana  Root  Locus 
CDC  FORTRAN  4 
E.  A.  Laa 

Aarospaca  Corporation 
Purpose 

Evaluate  z  plana  root  locus  using  an  LCAP2  index.  Automatic  gain  selection 
available  to  supplement  user-selected  gains. 

Usage 

CALL  ZLOCI(I) 

I  input  -  Index  of  z  plane  transfer  function  to  be  evaluated 

1.  Root  locus  parameters  are  in  COMMON/HEADDB/ .  They  are  to  be  set  before 
ZLOCI  is  called.  See  description  of  SLOCI  for  a  complete  list  of  def¬ 
initions  of  these  parameters. 


Mslhfid 

Same  as  that  described  in  detail  in  description  of  SLOCI. 

The  code  for  this  routine  is  in  subroutine  SLOCI. 

R«quir«wtntg 

COMMON  blocks!  INTCOM.PRNCTL.TFTEMP,// 

LCAP2  routines!  ENDLINE. FCNPLN. FETTFX. OPMESG. RL0CUS1 .TFPRN1 


ZMFAUX 
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SUBROUTINE  ZMRFQ  -  LCAP2  Operator,  Z  Plane  Multirate  Frequency  Response 
CDC  FORTRAN  A 
E.  A.  Lee 

Aerospece  Corporation 
Purpose 

Evaluate  multirate  (fast  input,  slow  output)  frequency  response  of  a  z 
plane  transfer  function  using  an  LCAP2  index. 

Usage 

CALL  ZMRFQ(I,M) 

I  input  -  Index  of  z  plane  transfer  function 
M  input  -  Integer  ratio  of  output/input  sampling  periods 

1.  The  input  z  plane  transfer  function  is  at  the  faster  sampling  rate. 

2.  Frequency  response  parameters  are  in  COMMON/HEADDB/ .  See  description  of 
SFREQ. 

3.  The  sampling  period,  SAMPT,  is  for  the  slower  output  sampler. 

Htthod 

The  frequency  response  is  evaluated  by  direct  application  of  Sklansky's 
frequency  decomposition.  No  explicit  rational  representation  of  the  slower  out¬ 
put  transform  is  computed.  If  an  explicit  representation  of  the  slower  output 
transfer  function  is  desired,  see  LCAP2  operator  ZMRXFM. 

Tha  coda  for  this  routine  is  in  subroutine  NMFRQ. 


COMMON  blocks i  INTCOM, FRQBLK, PRNCTL , TFTEMP 

LCAP2  routines i  ENOLINE, FCNPLN, FCNN1 , FETTFX, FREQWM2, FREQZM2, OPMESG, 
TFPRN1 , MFAUX, ZFAUX 


ZMRFRQY 


Identification 

SUBROUTINE  ZMRFQY  -  Evaluate  Multi  rate  Frequency  Response  Of  A  Z  Plane 

Transfer  Function  Coefficient  Array 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 

LM.rP.ggff 

Evaluate  multirate  (fast  input,  slow  output)  frequency  response  of  a  z 
plane  transfer  function  coefficient  array.  User  supplies  the  name  of  the  array. 

Usaag 


CALL  ZMRFQY(TFC,M) 

TFC  input  -  Transfer  function  coefficient  array  (LCAP2  format)  at 
the  faster  input  sampling  rate 

M  input  -  Integer  ratio  of  output/input  sampling  periods 

1.  Frequency  response  parameters  are  in  COMMON/HEADDB/ .  See  description  of 
SFREQ. 

2.  The  sampling  period,  SAMPT,  is  for  the  slower  output  sampler. 

Requirements 


COMMON  blocks)  FRQBLK 
LCAP2  routines)  FREQZM2,ZFAUX 


ZMRXFM 


Identification 

SUBROUTINE  ZMRXFM  -  LCAP2  Operator,  Multirate  (fast  input,  slow  output 

sampler)  Z  Transform 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  the  output  z  transform  of  a  fast  to  slow  sampler  using  LCAP2 
indices.  This  operation  will  yield  a  rational  transfer  function  at  the  slower 
sampling  rate. 

Ugflfle 


CALL  ZMRXFMd, J) 

I  input  -  Index  of  resultant  slower  output  z  transfer  function 
J  input  -  Index  of  faster  input  z  transfer  function 

1.  The  integer  ratio,  output/input  sampling  periods,  NTGER,  of  COMMON/HEADDB/ 
must  be  set  before  this  subroutine  is  called. 

Method 

The  output  transform  of  a  fast  to  slow  rate  sampler  is  given  by  Sklansky's 
frequency  decomposition  method  as 

nzl 

1  \ 

\  T/n  j2*pixk/n 
n  /  G  (z  e  ) 

/ _  n 

k-1 

T/n 

where  G  (z  )  is  the  z  plune  transfer  function  at  the  faster  sampling  rate 
n 

and  n  is  the  integer  ratio  of  the  output/input  sampling  periods.  Using  the  root 
form  representation  of  the  input  transform,  a  rational  representation  of  the 
slower  rate  output  transform  is  computed. 

Requirement 

COMMON  blocks*  HEADDB, ITEST , PRNCTL , TFTEMP 

LCAP2  routines*  CRELIM, ENDLINE, FETTFX,MRXFM, OPPRN, PROOT, PSYNTH, RREQU, 
RRTEQU, RTPRNO , STRTFX, TFPRN1 , TFPRN4 , WZTRANS , ZWTRANS 
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ZNQRM 


Identification 


SUBROUTINE  ZNORM  -  LCAP2  Operator,  Normalize  Z  Plana  Transfer  Function 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Normalize  z  plane  transfer  function  using  an  LCAP2  index.  Normalization  can 
be  either  with  respect  to  the  low  order  non-zero  coefficient  or  the  high  order 
coefficient  of  the  denominator. 

Mfiaae 

CALL  ZNORM(I) 

I  input  -  Index  of  the  z  plane  transfer  function 

1.  Normalization  parameters  are  in  COMMON/HEADDB/ .  They  are  to  be  set  before 
ZNORM  is  called.  These  parameters  are  defined  below. 


parameter  preset  description 

KNORM  1.  Value  used  for  normalizing  the  transfer  function 

KNRMFG  0  If  .EQ.O,  the  low  order  non-zero  coefficient  of  the 

denominator  is  set  equal  to  the  value  of  KNORM  and 
all  other  coefficients  are  normalized  to  this  value. 


If  .NE.O,  the  high  order  coefficient  of  the  denominator 
is  set  equal  to  the  value  of  KNORM  and  all  other  coeffi¬ 
cients  are  normalized  to  this  value. 

EMhbd 

The  code  for  this  routine  is  in  subroutine  SNORM. 

Restrictions 

KNORM  cannot  be  zero. 

R.gavirefflftn.ts 


COMMON  blocks.  INTCOM, PRNCTL ,TFTEMP 

LCAP2  routines .  ENDLINE, FCNPLN, FETTFX, NORM, OPMESG, STRTFX, TFPRN1 , TFPRN4 


SUBROUTINE  ZPADD  -  LCAP2  Operator,  Z  Plane  Transfer  Function  Add 
CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Add  two  z  plane  transfer  functions  using  LCAP2  indices. 

Usage 

CALL  ZPADD(I,J,K) 

I  input  -  Index  of  resultant  transfer  function  sum 

J  input  -  Index  of  first  transfer  function  to  be  added 

K  input  -  Index  of  second  transfer  function  to  be  added 

Method 


The  code  for  this  routine  is  in  subroutine  SPADD. 

Bfls.trictipns 

The  degree  of  the  transfer  function  must  be  less  than  50. 

Requirements 

COMMON  blocks.  PRNCTL,TFTEMP 

LCAP2  routines.  ENDLINE, FCNPLN, FCNW1, FCNW2, FETTFX, OPPRN,PPADD,RRTADD 
STRTFX, TFPRN1 , TFPRN4 


Identification 

SUBROUTINE  ZPDIV  -  LCAP2  Operator,  Z  Plane  Transfer  Function  Divide 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Divide  two  z  plane  transfer  functions  using  LCAP2  indices. 

Usage 

CALL  ZPDIVC I » J , K) 

I  input  -  Index  of  resultant  transfer  function 

J  input  -  Index  of  dividend  transfer  function 

K  input  -  Index  of  divisor  transfer  function 

Method 

The  code  for  this  routine  is  in  subroutine  SPDIV. 


Restrictions 

The  degree  of  the  transfer  functions  must  be  less  than  50. 

Regui rements 

COMMON  blocks)  PRNCTL , TFTEMP 

LCAP2  routines:  ENDLINE,  FETTFX, OPPRN, PMULT , PSYNTH, RTMPY, STRTFX 
TFPRN1,TFPRN4 


Idtntifioition 

SUBROUTINE  ZPEQU  -  LCAP2  Operator,  Z  Plana  Equal 
CDC  FORTRAN  A 
E.  A.  Laa 

Aarospaca  Corporation 
Purpoaa 

Equate  z  plana  transfer  functions  using  LCAP2  indices. 


Usage 

CALL  ZPEQUCI, J) 

I  input  -  Index  of  resultant  transfer  function 
J  input  -  Index  of  transfer  function  to  be  equated  with 

Method 

The  code  for  this  routine  is  in  subroutine  SPEQU. 

Restrictions 

The  degree  of  the  transfer  functions  must  be  less  than  50. 

Rsquirgmontg 

COMMON  blocks t  0VC0M, PRNCTL , TFTEMP 

LCAP2  routines «  ENDLINE, FETTFX, OPPRN, PPE9U, RRTEQU, STFTFX, TFPRN1 , TFRPRN4 


ZPLDC 


Identification 

SUBROUTINE  ZPLDC  -  LCAP2  Operator#  Load  Coefficients  Into  Z  Plane  Transfer 

Function 

CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 

P.nrP9gg 

Load  coefficients  into  z  plane  transfer  function  using  an  LCAP2  index. 

Jisasu 

CALL  ZPLDC(I) 

I  input  -  Index  where  transfer  function  is  to  be  stored 

1.  Transfer  function  coefficients  are  entered  with  polynomial  coefficient 
arrays  POLYN  and  POLYD  ( LCAP2  format)  which  are  in  COMMON/HEADDB/.  They  are 
to  be  set  before  ZPLDC  is  called. 

2.  The  calling  program  must  include  COMMON/HEADDB/  and  the  appropriate  DIMEN¬ 
SION  and  EQUIVALENCE  statements  for  POLYN  and  POLYD. 

3.  The  roots  of  ZPTFi  will  not  be  automatically  computed.  If  this  is  desired# 
follow  this  operation  with  the  operator  ZPRTS(I). 

The  code  for  this  routine  is  in  subroutine  SPLDC. 

Rss^rictipns 

The  degree  of  the  transfer  function  must  be  less  than  50. 

&»<m  foments 

COMMON  blocks  I  INTCOM#  HEADDB#  PRNCTL  #  TFTEMP 

LCAP2  routines i  ENDLINE, FCNPLN, OPMESG, PEQUAL , PPRN1 , STRTFX, TFPRN4 
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ZPLDR 


Identification 

SUBROUTINE  ZPLDR  -  LCAP2  Operator,  Load  Z  Plane  Transfer  Function  In 

Root  Form 

CDC  FORTRAN  A 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Load  roots  into  z  plane  transfer  function  using  an  LCAP2  index. 

Usage 

CALL  ZPLDRCI) 

I  input  -  Index  where  transfer  function  is  to  be  stored 

1.  Transfer  function  roots  are  entered  with  polynomial  coefficient  arrays 
ROOTN  and  ROOTD  (LCAPZ  format)  which  are  in  COMMON/HEADDB/ .  They  are  to  be 
set  before  ZPLDR  is  called. 

Z.  The  calling  program  must  include  COMMON/HEADDB/  and  the  appropriate  DIMEN¬ 
SION  and  EQUIVALENCE  statements  for  ROOTN  and  ROOTD. 

tlflthod 

The  code  for  this  routine  is  in  subroutine  SPLDR. 

Rfl&tci&liana 

The  degree  of  the  transfer  function  must  be  less  than  50. 

Rsquiremcntg 

COMMON  blocks  I  INTCOM, HEADDB , PRNCTL , TFTEMP 

LCAP2  routines*  ENDLINE, FCNPLN, OPMESG, PSYNTH, RTEQU, RTPRN2, STRTFX, TFPRN4 


SUBROUTINE  ZPMPY  -  LCAP2  Operator#  Z  Plane  Transfer  Function  Multiply 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Multiply  two  z  plane  transfer  functions  using  LCAP2  indices. 

Usage 

CALL  ZPMPYC I ,  J ,  K) 

I  input  -  Index  of  resultant  transfer  function  product 

J  input  -  Index  of  first  transfer  function  to  be  multiplied 

K  input  -  Index  of  second  transfer  function  to  be  multiplied 

Method 

If  only  the  coefficients  of  the  j-th  and  k-th  transfer  functions  are  avail¬ 
able#  the  product  is  computed  by  multiplication  of  the  coefficients.  If  the 
roots  of  the  j-th  and  k-th  transfer  functions  are  available#  the  product  is  com¬ 
puted  by  combining  the  roots.  The  coefficients  of  the  product  are  then  formed 
from  these  roots. 

The  code  for  this  routine  is  in  subroutine  SPMPY. 

Restrictions 

The  degree  of  the  transfer  functions  must  be  less  that  50. 

Requirements 


COMMON  blocks:  PRNCTL,TFTEMP 

LCAP2  routines:  ENDLINE#  FCNW1 , FCNW2, FETTFX, OPPRN, PMULT , PSYNTH, RTMPY, 
STRTFX,TFPRN1,TFPRN4 


ZPPRN 


Identification 

SUBROUTINE  ZPPRN  -  LCAP2  Operator *  Print  Out  Z  Plana  Transfer  Function 
CDC  FORTRAN  A 
E.  A.  Lea 

Aerospace  Corporation 
Purpose 

Print  out  z  plana  transfer  function  using  an  LCAP2  index. 


Usaoa 

CALL  ZPPRN(I) 

I  input  -  Index  of  transfer  unction  to  be  printed  out 
Method 

Roots  of  the  transfer  function  are  printed  out  only  if  they  are  defined 
(previously  computed  or  loaded  in).  The  coefficients  of  the  transfer  function 
are  printed  out  in  ascending  order. 

I  The  coda  for  this  routine  is  in  subroutine  SPPRN. 

Raquirimtnta 


COMMON  blocks!  INTCOM.TFTEMP 

LCAP2  routines!  ENDLINE* FCNPLN* FETTFX, OPMESG.TFPRNA 


ZPRTS 


I  input  -  Index  of  z  plana  transfer  function 

Hfilbfid 

Roots  of  the  numerator  and  denominator  ara  computed  by  subroutine  PROOT. 
The  code  for  this  routine  is  in  subroutine  SPRTS. 


If  the  roots  of  ZPTFi  were  previously  computed  or  loaded  in,  the  program 
will  not  recompute  the  roots  from  the  coefficients.  A  message  to  this  effect 
will  be  printed. 


COMMON  blocksi  INTCOM, PRNCTL , TFTEMP 

LCAP2  routines!  ENDLINE, FCNPLN, FCNM1 , FETTFX, OPMESG, PROOT, STRTFX, TFPRN1 , 
TFPRN4 


ZESUB 


SUBROUTINE  ZPSUB  -  LCAP2  Operator,  Z  Plane  Transfer  Function  Subtract 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Subtract  two  z  plane  transfer  functions  using  LCAP2  indices. 

Usage 

CALL  ZPSUB(I, J,K) 

I  input  -  Index  of  resultant  transfer  function  difference 

J  input  -  Index  of  first  transfer  function  (minuend) 

K  input  ~  Index  of  second  transfer  function  (subtrahend) 


Method 


The  code  for  this  routine  is  in  subroutine  SPSUB. 


The  degree  of  the  transfer  functions  must  be  less  than  50. 


COMMON  blocksi  PRNCTL,TFTEMP 

LCAP2  routines!  ENDLINE, FETTFX, OPPRN, PPSUB, RRTSUB, STRTFX, TFPRN1 , TFPRN4 


SUBROUTINE  ZSXFM  -  LCAP2  Operator,  Transform  Z  Plane  Roots  Into  S  Plane 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Transform  z  plane  roots  into  "equivalent”  s  plane  roots  using  an  LCAP2 
index.  The  transformation  of  the  z  plane  roots  to  the  s  plane  is  not  unique.  The 
"equivalent”  s  plane  roots  are  provided  solely  to  aid  the  analyst  in  identifying 
and  correlating  z  plane  roots.  The  computed  s  plane  roots  are  not  saved. 

Usaas 


CALL  ZSXFM(I) 

I  input  -  Index  of  z  plane  transfer  function 

1.  Sampling  period,  SAMPT,  of  COMMON/HEADDB/  must  be  set  before  calling  this 
subroutine. 

Method 

Transformation  of  the  roots  from  z  to  the  s  plane  is  defined  by 
s  =  InC  z  )  /  SAMPT 

The  code  for  this  routine  is  in  subroutine  WSXFM. 

Roqviirementg 


COMMON  blocks  I  INTCOM, HEADDB, PRNCTL , TFTEMP 

LCAP2  routines.  ENDLINE, FCNPLN,FCNH1 , FCNW2, FETTFX,0PMESG,TFPRN1, WSTRAN1 


ZTIME 


Identification 

SUBROUTINE  ZTIME  -  LCAP2  Operator.  Inverse  Z  Transform  And  Time  Response 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  inverse  z  transform  and  the  time  response  using  an  LCAP2  index. 


Usage 

CALL  ZTIME(I) 

I  input  -  Index  of  z  plane  transfer  function 

1.  Time  response  parameters  are  in  COMMON/HEADDB/ .  They  are  to  be  set  before 
ZTIME  is  called.  These  parameters  are  defined  belowt 


parameter 

preset 

description 

TSTEP 

1 

.NE.O  for  step  response;  .  EQ.O  for  impulse  response 

TMAGN 

1. 

Magnitude  of  input  for  time  response 

TEND 

1. 

End  time  for  evaluating  time  response 

TMAGN 

1. 

Magnitude  of  input  for  time  response 

SAMPT 

1. 

Sampling  period 

GRAFP 

1 

.NE.O  for  printer  (low  resolution)  plot 

FILM 

0 

.NE.O  for  hardcopy  (high  resolution)  plot 

TXMIN 

0 

Minimum  x  axis  for  plot 

TXMAX 

0 

Maximum  x  axis  for  plot 

(Auto,  scaling  of  x  axis  if  TXMIN=TXMAX) 

TYMIN 

0 

Minimum  y  axis  for  plot 

TYMAX 

0 

Mamimum  y  axis  for  plot 

(Auto,  scaling  of  y  axis  if  TYMIN=TYMAX) 

Method 

The  inverse  z  transform  is  computed  by  the  power  series  (long  division) 
method.  Hhile  this  method  of  computing  the  time  response  is  inherently  less 
accurate  than  the  partial  fraction  method,  results  for  typical  transfer  func¬ 
tions  are  excellent.  To  provide  a  measure  of  the  accuracy  of  the  response,  the 
results  are  computed  in  double  precision  and  compared. 

The  code  for  this  routine  is  in  subroutine  STIME. 

Restrictions 


The  degree  of  the  transfer  function  must  be  less  than  50. 


RaaMicanania 


COMMON  blocks*  INTCOM, PRNCTL , TFTEMP,// 

LCAP2  routines i  ENDLINE, FCNPLN, FCNW1 , FCNW2, FETTFX, 0PMES6, PROOT, STIME1 , 
STRTFX, TFPRN1 , ZTIME1 


I  RD-R141  286  LCAP2  (LINEAR  CONTROLS  ANAL VS  IS  PROGRAM)  VOLUME  3 
[  SOURCE  CODE  DESCRIPTION.  .  (U)  AEROSPACE  CORP  EL  SEGUNDO 

CA  GUIDANCE  AND  CONTROL  DIV  E  A  LEE  15  NOV  83 
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ZIIME1 


SUBROUTINE  ZTIME1  -  Inverse  Z  Transform  and  Time  Response 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
EilCB.q.S9 

Compute  inverse  z  transform  and  time  response.  This  subroutine  is  called 
by  ZTIME. 

Usage 

CALL  ZTIME1CPNS,PDS,RTNS,RTDS) 

PNS  input  -  Numerator  polynomial  coefficient  array  (LCAP2  format) 

PDS  input  -  Denominator  polynomial  coefficient  array  (LCAP2  format) 

RTNS  input  -  Complex  numerator  polynomial  root  array  (LCAP2  format) 

RTDS  input  -  Complex  denominator  polynomial  root  array  (LCAP2  format) 

1.  Time  response  parameters  are  in  COMMON/ H EA DOB/ .  See  description  of  ZTIME. 

Method 

Subroutine  ZTIME2  is  called  to  evaluate  the  time  response. 


For  interactive  LCAP2  the  user  is  prompted  for  the  type  of  input  and  the 
beginning  and  end  times  to  be  used  for  evaluating  the  response.  The  user  is  also 
given  the  option  to  suppress  tabular  output  of  the  response. 


The  code  for  this  routine  is  in  subroutine  STIME1 . 


COMMON  blockst  CMELIM,CMRESD,CMTIME, HEADDB, INTCOM.// 

LCAP2  routines!  DAYPRN» GRAF1 , ITITL E, STIME2 , STIME3, TSPLOT , ZTIME2 


ZTIHE2 


SUBROUTINE  ZTIME2  -  Inverse  Z  Transform  By  Power  Series  Method 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  the  inverse  z  transform  by  the  power  series  method. 


Usage 


CALL  ZTIME2(PNZ# PDZ»  RTNZ# RTDZ#  TPOINT# YPOINT/ZPOINT , NTERM) 


PNZ 

PDZ 

RTNZ 

RTDZ 

TPOINT 

YPOINT 

ZPOINT 

NTERM 


input 

input 


output 

output 

output 

output 


Numerator  polynomial  coefficient  array  (LCAP2  format) 
Denominator  polynomial  coefficient  array  (LCAP2  format) 
not  used 
not  used 

Array  of  time  points  (DIMENSION-1500) 

Array  of  time  response  points  (DIMENSION=1500) 

Array  of  time  response  points  (DIMENSION=15DO) 

Number  of  time  points  computed  (max=1500) 


1.  Time  response  parameters  are  in  COMMON/HEADDB/ .  See  description  for  STIME. 
Methpd 

The  inverse  z  transform  is  computed  by  the  power  series  (long  division) 
method.  While  this  method  of  computing  the  time  response  is  inherently  less 
accurate  than  the  partial  fraction  method/  results  for  typical  transfer  func¬ 
tions  are  excellent.  To  provide  a  measure  of  the  accuracy  of  the  response#  the 
results  are  computed  in  double  precision  and  compared. 


Degree  of  the  numerator  must  not  be  greater  than  the  denominator. 


COMMON  blocks ■  HEADDB# INTCOM 
LCAP2  routines i  none 
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ZVCHH01 


Identification 

SUBROUTINE  ZVCHNOl  -  Z  to  (ZX*n)  Transformation 
CDC  FORTRAN  4 
E.  A.  Laa 

Aarospaca  Corporation 
Purpose 

Computa  transformation  of  tha  z  plana  transfer  function  to  a  faster  z  vari¬ 
able  by  replacement  of  variables.  Called  by  ZVCNG. 

iisaas 


CALL  ZVCHNG1 (TFPZI , TFRZI , INI , IDI , TFPZJ , TFRZJ , INJ , IDJ ) 


TFPZI 

input 

T ransfmr  function  coefficient  array  (LCAP2  format) 
at  the  slower  sampling  rate 

TPRZI 

input 

•" 

Transfer  function  root  array  (LCAP2  format)  at  the 
slower  sampling  rata 

INI 

input 

=1  for  numerator  coefficient  form  only 
=0  for  numerator  coefficient  and  root  form 

IDI 

input 

=1  for  denominator  coefficient  form  only 
=0  for  denominator  coefficient  and  root  form 

TFPZJ 

output 

Transfer  function  coefficient  array  at  the  faster 
sampling  rate 

TPRZJ 

output 

Transfer  function  root  array  at  the  faster  sampling 
rate 

INJ 

output 

=1  for  numerator  coefficient  form  only 
=0  for  numerator  coefficient  and  root  form 

IDJ 

output 

=1  for  denominator  coefficient  form  only 
=0  for  denominator  coefficient  and  root  form 

Hsthsd 

See  description  for  ZVCNG 

8w.tr  is  tiona 

See  description  of  ZVCNG. 

Rtqvir.Msotg 

COMMON  blocksi  HEADDB 
LCAP2  routines!  LEXIT,PPZERO 
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ZHTRANS 


SUBROUTINE  ZNTRANS  -  Bilinear  Transformation  of  Z  Plane  Roots  to  H  Plane  Roots 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 
Purpose 

Compute  bilinear  transformation  of  z  plane  roots  to  w  plane  roots. 

Usage 

CALL  ZMTRANS(AR00T« ATF»  BROOT > BTF) 

AROOT  input  -  Z  plane  transfer  function  root  array  (LCAP2  format) 

ATF  input  -  Z  plane  transfer  function  coefficient  array  (LCAP2  format) 

BROOT  output  -  W  plane  transfer  function  root  array  (LCAPZ  format) 

BTF  output  -  W  plane  transfer  function  coefficient  array  (LCAP2  format) 


Method 


Roots  are  transformed  from  the  z  plane  to  the  w  plane  by  the  fol lowing ■ 


w  =  (z-1)  /  <z+l) 

The  low  order  non-zero  coefficients  of  the  numerator  and  denominator  of  the  z 
plana  transfer  function  are  computed  so  that  the  correct  gain  is  maintained  when 
the  transfer  function  is  evaluated. 

Rtqwirmnonta 

COMMON  blocks i  none 

LCAP2  routinesi  PPZERO# PSYNTH* RCLAS , RRZERO, RTEQ1 , RTEQ2 , XTRACT 
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ZHXFM 


Identification 

SUBROUTINE  ZHXFM  -  LCAP2  Operator,  Z  to  H  Plane  Transformation 
CDC  FORTRAN  4 
E.  A.  Lee 

Aerospace  Corporation 

P.M.tpaae 

Compute  z  to  w  plane  bilinear  transformation  using  an  LCAP2  index,  (notei 
the  w  is  not  the  w*  defined  by  the  Tustin's  bilinear  rule) 

Usage 


CALL  ZWXFM( I , J ) 

I  input  -  Index  of  computed  w  plane  transfer  function 
J  input  -  Index  of  z  plane  transfer  function  to  be  transformed. 

1.  The  sampling  period,  SAMPT,  of  COMMON/HEADDB/  must  be  set  before  calling 
this  subroutine. 

Plethad 

Bilinear  transformation  is  implemented  by  transformation  of  the  z  plane 
roots.  This  method  is  more  accurate  than  the  method  described  by  A.C.  Davies 
(see  description  of  BILNWZ). 

The  code  for  this  routine  is  in  subroutine  WZXFM. 

Rgqtiir.'BPisnts 

COMMON  blocks >  INTCOM,PRNCTL,TFTEMP 

LCAP2  routinesi  ENDLINE, FCNW1, FCNW2, FETTFX, HOLLI, OPMESG, PROOT,STRTFX, 
TFPRN1 , TFPRN4 , WZTRANS , ZWTRANS 


ZZETAXH 


Irfaniilicilian 

SUBROUTINE  ZZETAXM  -  Z  to  Zata  Transformation 
CDC  FORTRAN  4 
E.  A.  Laa 

Aerospace  Corporation 
Purpoaa 

Computa  transformation  of  z  plana  roots  to  zata  plana  roots.  This  subrou- 
tina  is  used  by  subroutina  MRXFM. 

Uaaoa 

CALL  ZZETAXM(XRTF#YRTF*  DELT) 

XRTF  input  -  Z  plana  polynomial  root  array  (LCAP2  format) 

YRTF  output  -  Zata  plana  polynomial  root  array  (LCAP2  format) 

DELT  input  -  Reciprocal  of  radius  defining  zata  transform 

Method 

Zata  transformation  is  defined  by 
z  ■  (zata  X  radius)  ♦  1. 

which  maps  the  unit  circle  in  the  z  plana  into  a  circle  in  tha  left  half  zata 
plana  with  tha  origin  at  zata  =  -radius. 

COMMON  blocks I  none 

LCAP2  routines!  RCLAS,RTPRNO,XTRACT 
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The  FORTRAN  code  defining  COMDECK  LCAP2  for  program  UPDATE  used  in  creating 
the  main  program  for  batch  LCAP2  is  given  below> 

PROGRAM  LCAP2( INPUT, O'  ?UT=/120, TAPE5=INPUT,TAPE6=0UTPUT 
+, TAPE19 , TAPE30, TAPE31 , . „PE83 , TAPE84, TAPE85, TAPE86 
+,TAPE87,TAPE89 
+  ) 

COMMON/FRQBLK/U, X, TWOPI , MMTGER 
COMPLEX  X 

COMMON/L  ENGTH/NDEGP1 , NDEGP2 
C0MM0N/PL0T1/NPL0TS 

C0MM0N/PRNCTL/PRNFLG1 ,PRNFLG2, PRNFLG3, PRNFLG4,PRNFLG5 
COMMON/TFPCNT/NSPCNT , NWPCNT , NZPCNT , NPYCNT 

COMMON/TFTEMP/TFPI (102),TFRI(100),INI,IDI, TFPJ( 102) , TFRJC 100) , INJ 
+, IDJ, TFPKC 102) , TFRKC 100) , INK, IDK 
COMPLEX  TFRI,TFRJ,TFRK 
COMMON/HEADDB/HEADC70) , DBC900) 

DIMENSION  POLYN( 51 ) , POLYD( 51 ) , P0LY( 51 ) 

COMPLEX  OMEGA (20 ),FREQ1(3), FREQ2C  3) , FREQ3C  3) , FREQ4C3) , FREQ5C3) 

COMPLEX  ROOTN(50) , ROOTDC50) , ROOTC50) 

EQUIVALENCE  (DB(296 ) , POLYN) , (DB(347),P0LYN), (DB(498),R00TN) 

+,( DB(598 ),R00TD),(DB(245), POLY), (DB( 398), ROOT) 

EQUIVALENCE  (DB(101),C0NTP), (DB(103), CYCLE), CDB( 104), DBMAX) 

+,(DB(105), DBMIN) , (DBC106) , DEGMN) , (DBC107) ,DELAY), (DBC108) , ECRE1) 
+,(DB(109), ECRE2) ,(DB(110), EDB1  ), ( DB( 1 11 ) , EDB2  ) , ( DB( 1 12) , EDEG1 ) 

+, (DBC113), EDEG2), ( DB( 114) , EPAD1) , (DBC115) , EPMR1 ), (DB( 116 ) , FAUX  ) 

+, (DB( 117 ) , EP1  ) , (DB( 118  , EP2  ),CDBC119  , EP3  ) , ( DB( 120) , EP4  ) 

+, ( DB( 121 ) , EP5  ) , ( DB( 122) , ERCNJ ),(DB(123), ERCX  ) , (DBC 124) , ERCZ  ) 

+, ( DBC 126 ) , FDLAY) , ( DB( 127 ) , FXYDL ),(DB(128), FXYMN) , ( DB( 129) , FAUTO) 

+, (DBC 130), FBODE),(DB( 131), FILM  ) , ( DBC 132) , FNICO) , ( DBC133) , FNYQS) 

+, (DB( 134) , GRAFP) , (DBC 135) , ITLOC) , ( DB( 136 ) , NTGER) , ( DBC 140) , KDELT) 

+, (DB(141),KFLG  ) , (DB( 142) ,MAXIT) , ( DB( 143) ,MNDW  ) , ( DB( 144) , MXDW  ) 

+, (DB( 145), MXITF), (DB( 146 ) , NLOCI ) , ( DB( 147), NOMEG), (DB( 148), NP  ) 

+, ( DB( 149 ) , PMARG) ,(DB(151), PRN1  ) , ( DBC 152) , PRN2  ) , (DBC 153) ,PRN3  ) 

+, CDBC154),PRN4  ), CDBC155),PRN5  ) , (DBC 156 ) , PRN6  ) 

EQUI VAL ENCE  C  DBC 1 57 ) , PRN7 ) , C  DB C 1 58 ) , PRN8 ) , C  DBC 1 59 ) , PRN9 ) 

+, CDBC160) ,PRN10 ) , CDBC 161 ) ,PSTOP) , (DBC 162) , PTYPE), CDBC163) ,SAMPT) 

+, C DBC 164), SHADE), (DBC 165), TDELT), (DBC 166), TEND  ), CDBC 167 ),TMAGN) 

♦, CDBC 169), TSTEP), CDBC 170), TXMAX), CDBC 171 ),TXMIN), CDBC 172), TYMAX) 

+, CDBC 173), TYMIN), CDBC 174), TXTRA), CDBC 175), TZERO), CDBC 176 ),NANOT) 

+, CDBC 177 ),XGAP  ),(DBC178  ,YAN0T),(DB(179  ,YGAP  ) , CDBC 180 ) ,ZLINE) 

+, CDBC 181), ZOH  ), CDBC 182), NRMFG), CDBC 183), KNORM), CDBC 184), KCLP  ) 
t, C  DBC 185) , ARFLG) , ( DBC 186 ) , RTMAX) , ( DBC 187 ) , RZERO) , ( DBC 188 ) , RLYMN) 
+,(DB(189),RIXMX>, CDBC190), RLYMN), CDBC 191 ),RLYMX), CDBC 192), RLFG1) 

+, C DBC 193), TZFLG), CDBC 194), TZEP1), CDBC 195), RAD  ), CDBC 199), NTGER) 

+  , CDBC 137 ),XNCOL), (DBC 138), XLINES), (DBC 102),  NQDB) 

+  , ( DBC200) , KGAIN) , C  DBC  225) , OMEGA) , CDBC698) , FREQ1 ) , CDBC701 ) , FREQ2) 
t, (DBC 704) , FREQ3) , (DBC707) , FREQ4) , CDBC 710), FREQ5) 


v.V, 


REAL  ITLOC,MTGER>  KDELT , KFLG,MAXIT , MNDW . MXDW, MXITF, NLOCI , NOMEG 
+,NP,NRMFG, KNORM, KCL  P , NTGER, NQDB , KGAINC  25 ) 

COMMON/ I HTCOM/ INTFLG, NSTORE, NDETRM 

COMMON/MATRIXl/MATDIM,MXM,MDEG,MGESS(50),M0(30,30),Ml(30,30) 
+, M2 (30, 30), M3 (30, 30), M4 (30, 30) 

REAL  MXM»MDEG,M0,M1,M2,M3,M4 
COMPLEX  MGESS 
COMPLEX  DET, AMATRIX 

COMMON/MDET1/NR, DET , NDIMA , AMATRIXC 30,30) 

INTEGER  OVARG,OVENTRY 

COMMON/OVCOM/OVARG, OVENTRY, IOV, JOV, KOV, IFAUX 
♦, OVCNTR1 , 0VCNTR2, OVCNTR3, OVCNTR4 , 0VCNTR5 
COMMON/SCMBLK/XTFS( 1520), XTFH( 1 520 ) , XTFZ( 1520 ) , XPY( 760 ) 
COMMON/CMPOLY/POLYCC  51 ) 


The  directives  for  defining  the  tree  structure  for  interactive  LCAP2  is 
given  below i 

TREE  LCAP2-ILCAP2-( IARGO, IARG1A, IARG2, INTXFM, IARG1B) 

*  SEGLOADER  WILL  NOT  WORK  PROPERLY  IF  SUBROUTINES  WHICH  ARE 

X  PASSED  AS  ARGUMENTS  IN  CALLING  STATEMENTS  ARE  INCLUDED  IN 

X  THE  SEGLOADER  DIRECTIVES.  EXAMPLES  ARE  SFAUX.ZFAUX, FAUXW, 

X  ETC.  SEGLOADER  WILL  PUT  THESE  SUBROUTINES  IN  THEIR  CORRECT 

X  PLACES. 

LCAP2  INCLUDE  LEVEL1 

LCAP2  INCLUDE  PLOTS 

LCAP2  INCLUDE  STDGRD 

LCAP2  INCLUDE  PLTSYM 

LCAP2  INCLUDE  SYMBOL 

LCAP2  INCLUDE  NUPLOT 

LCAP2  INCLUDE  BUFF 

X 

GLOBAL  FRQBLK, ACOM, LENGTH, PLOT1 , PRNCTL , TFPCNT, TFTEMP 
GLOBAL  HEADDB, OVCOM, SCMBLK, CMPOLY , AWORDS, INTCOM 
GLOBAL  CMEL IM, CMRESD, CMTIME , TEMPRT , IT EST , COMAXX 
GLOBAL  SEQCOM, CALCOM, PINOUC, PLBUFF 
X 

LEVEL 

x 

TREE  SPLDC 
TREE  SFREQ 
TREE  SFSQR 
TREE  WSXFM 
TREE  SWMRX 
TREE  SWXFM 
TREE  SZXFM 
TREE  ZVCNG 
TREE  WZXFM 
TREE  SPLDR 
TREE  SPADD 
TREE  SPEQU 
TREE  SPSUB 
TREE  SPMPY 
TREE  SPDIV 
TREE  SNORM 
TREE  SELCR 
TREE  SPPRN 
TREE  SPRTS 
TREE  STIME 
TREE  SLOCI 
TREE  WMRFQ 
TREE  PL  DC 
TREE  PLDR 
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TREE  PPRN 
TREE  PRTS 
TREE  PADD 
TREE  PEQU 
TREE  PMPY 
TREE  CPYPS 
TREE  CPYSP 
TREE  PSUB 
TREE  ZFREQY 
TREE  ZMRXFM 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

LEVEL 

TREE  COEFF 
TREE  COEFP 
TREE  DOTLINE 
TREE  ENDLINE 
TREE  FCNPLN 

TREE  FREQS-FREQS2-FPL0T1 

TREE  IDETRM 

TREE  IDTERM 

TREE  INITO 

TREE  MRXFM 

TREE  NORM 

TREE  OPMESG 

TREE  IRSTOR 

TREE  IROOT 

TREE  IROOTP 

TREE  RLOCUS1 

TREE  STIME1-TSPLOT 

TREE  ISTORE 

TREE  HSTRAN1 

TREE  HTRANS 

TREE  ZWTRANS 

TREE  ZWTRAN 

TREE  ZTIMEX 

TREE  ZVCHNG1 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

LEVEL 

DO  NOT  INCLUDE  AXXMRN  IN  SEGMENT  LOADER 

TREE  EJK 

TREE  BILNZM 

TREE  EVMRRT 

TREE  FETPY 

TREE  FETTFX-FETSTF 

TREE  ELPLOT1 

TREE  MATROTZ 

TREE  FREQS3 

TREE  MINIT2 


TREE  MR00T2-CXMTX1 

DO  NOT  INCLUDE  AUXM2  IN  SEGMENT  LOADER 

LET  SEGMENT  LOADER  DO  IT 

TREE  OPPRN 

TREE  RLOCIN1 

TREE  RRTADD 

TREE  RTEQ1 

TREE  TFPRN1-TFPRN4-PYPRN1-PYPRN4-RTPRN1-RTPRN2 

TREE  STIME2-STIME3-RESDU 

TREE  STRTFX-STRSTF 

TREE  PPADD 

TREE  ZTIME2 

TREE  ZZETAXM 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

LEVEL 

TREE  ADDP 
TREE  BPRINT2 
TREE  CRELIM 
TREE  EVLRT 
TREE  FREQSI1 
TREE  MPRINT2 
TREE  PROOT 
TREE  PSYNTH 
TREE  PMULT 
TREE  PPRINT 
TREE  DAYPRN 
TREE  FCNW1 
TREE  RTADD 
TREE  RRTPRN 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

LEVEL 

TREE  DCMPLX-DCXADD-DCXDIV-DCXEXP-DCXLOG-DCXMPY-DCXSUB 

TREE  GRAF1 

TREE  HELP 

TREE  ITITLE 

TREE  LEXIT 

TREE  MULE 

TREE  STRPY 

TREE  PCHEK-PZERO 

TREE  PEQUAL 

TREE  PPRN1-HOLLI 

TREE  RCLAS-RTPRNO-XTRACT 

TREE  RTEQU 

TREE  RZERO 

TREE  CPPRN 

TREE  OSCALE 

TREE  RPRINT 
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In  Section  4.3a  block  diagram  for  loading  and  executing  Interactive  LCAP2 
is  presented.  The  PROC  (procedure)  to  implement  this  is  given  belowt 

. PROC . INTLCAP, FF=#FILE . 

REMARK. MOULD  YOU  LIKE  TO  RETRIEVE  DATA  FROM  A  PREVIOUS  SESSION? 

REMARK. TYPE  (Y  OR  N)i 
REPLY, SMI. 

IFE, SMI . EQ .TRUE, DR. 

REMARK. 

REMARK. HAVE  YOU  ATTACHED  THE  PERMANENT  FILE  CONTAINING  YOUR  DATA? 

REMARK. TYPE  (Y  OR  N)i 
REPLY, SH2. 

IFE, SH2.EQ. FALSE, DA. 

REMARK. 

REMARK. GO  ATTACH  THE  PERMANENT  FILE  USING  TAPE30  AS  THE  LOCAL 
REMARK. FILE  NAME,  THEN  START  OVER  BY  TYPING  LCAP2. 

EXIT. 

ENDIF, DA . 

ENDIF,DR. 

OFFDF. 

ATTACH( ABS,8ABSINTLCAP2, ID=9487 ) 

REQUEST (TAPE31 , *PF) 

REQUEST (PLOT , *PF) 

ONDF. 

ABS. 

OFFDF. 

DISCONT  OUTPUT. 

SET , R1G=0 . 

ATTACH(ZZ,8GENPR0C, ID=9487 ) 

COMMENT.  ZZ  HILL  CREATE  PROC1  AND  PROC1  WILL  SET  R1G=1  IF  BATCH 
COMMENT.  JOB  TO  CDC  176  FOR  HARDCOPY  IS  REQUIRED. 

ONDF. 

ZZ. 

OFFDF. 

DISCONT  OUTPUT. 

ONDF. 

BEGIN, PR0C1,TAPE38. 

OFFDF. 

IFE, RIG. EQ . 1 , DR1G. 

ONDF. 

BATCH, TAPE39, INPUT. 

ENDIF, DR1G. 

LIBRARY. 

RETURN, TAPE31 , PLOT, ZZ, ABS . 

ONDF. 

REVERT. 

This  file  is  cataloged  as  permanent  file  8INTLCAP2  with  ID=9487. 


In  Section  4.3  program  GENPROC  which  is  used  for  post  processing  the  out¬ 
puts  of  Interactive  LCAP2  is  described.  The  code  for  this  program  is  given 
below i 


PROGRAM  GENPROCdNPUT, OUTPUT, TAPE5=INPUT,TAPE6=0UTPUT,TAPE38 
+, TAPE39 , TAPE89 ) 

C  PROGRAM  FOR  POST  PROCESSING  OF  INTERACTIVE  LCAP2  JOBS. 

CALL  CONNECT ( 5L INPUT ) 

CALL  C0NNECT(6L OUTPUT) 

IUNIT =89 
REMIND  IUNIT 

READC IUNIT)NPLOTS, NSTORE, NDETRM 
C 

C  IF  USER  HAS  REQUESTED  HARDCOPY  PLOTS,  NPLOTS  WILL  BE  NON-ZERO 
C 

C  IF  USER  HAS  STORED  DATA  (EXECUTED  STORE  OPERATION),  NSTORE 
C  WILL  BE  NON-ZERO 

C 

C  CALL  JBADGE(BADGE) 

C  CALL  JPGMR(PGMR) 

C 

C  CREATE  PROCEDURE  FOR 

C  (1)  CATALOGING  DATA  FILE  CREATED  BY  STORE  OPERATION 

C 

C  (2)  CATALOGING  PLOT  FILE  CREATED  BY  HARDCOPY  REQUEST 

C 

C  CREATE  PROCEDURE  AND  WRITE  TO  TAPE  IUNIT1 

IUNIT1=38 
REWIND  IUNIT1 
WRITE(IUNIT1,9000) 

9000  FORMAT ( X.PR0C»PR0C1» PI =fFILE.*) 

I F( NSTORE . EQ . 0)GO  TO  20 

C  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

WRITE(6 , 8900 ) 

8900  FORMATCXODATA  FILE  CREATED  BY  OPERATION  STORE  WILL  BE  CATALOGEDX 
+,/x  FOR  YOU.  ENTER  7  CHARACTER  WORD  TO  BE  USED  AS  FILE  NAME.X) 
READC 5, 8 910) WORD 
8910  FORMAT (A7 ) 

WRITEdUNITl, 8920 )W0RD,  BADGE 
8920  FORMAT ( XCATAL OG, TAPE31 ,8X,A7,X,ID=X,A5,1H. ) 

WRIT E(I UNIT 1,8930) 

8930  FORMAT ( XREMARK . X/ 

+XREMARK.DATA  FILE  HAS  BEEN  CATALOGED.  TO  USE  THIS  DATA  FOR  Ax/ 
+XREMARK. FUTURE  JOB,  ATTACH  THIS  DATA  FILE  PRIOR  TO  USINGX/ 
+XREMARK. INTERACTIVE  LCAP2  AGAIN.  THE  ATTACH  COMMAND  WILL  BEiX/ 
+XREMARK.X/ 

+XREMARK.X, 38HXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXKXXXXX  ) 


o  o 


WRITEC IUNIT1 , 8940 ) WORD, BADGE 

8940  FORMAT<*REMARK.x,lH*,2X,*ATTACH,TAPE30,8»,A7,»,ID=*, 

+A5,4H.  x  / 

+XREMARK . x, 38Hxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx  / 

+XREMARK.X) 

C  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
20  CONTINUE 

IF! NPLOTS . EQ . 0 )G0  TO  40 
WRITE!6,9022) 

9022  FORMAT! XOENTER  7  CHARACTER  WORD  TO  BE  USED  TO  CATALOG  PLOT  FILES. X 
+  ) 

READ! 5, 8910)W0RD 
WRITE! IUNIT1 , WORD, BADGE 
9010  F0RMAT!XCATAL0G,PL0T,8X,A7,X,ID=X,A5,1H.) 

WRITE! IUNIT1,9015)WORD, BADGE 

9015  FORMAT!XREMARK.X/XREMARK.PLOT  FILE  CATALOGED  ON  CDC  835  ASX, 

+X  8X, A7 , X, ID=, A5/XREMARK. ! THIS  FILE  WILL  BE  PURGED  UPON  COMPLETIO 
+N  OF  HARDCOPY  PLOTS)X/XREMARK . X) 

WRITE! I UNIT 1 , 9018  ) 

9018  F0RMAT!XSET,RIG=1.X) 

40  CONTINUE 

WRITE! I UNIT 1,9020) 

9020  FORMAT ! XREVERT . x) 

IF! NP LOTS . EQ . 0 )GO  TO  500 

CREATE  CONTROL  CARD  FILE  FOR  BATCHING  HARDCPY  JOB  TO  CDC  176. 

FILE  SAVED  ON  TAPE  IUNIT2. 

IUNIT2=39 
REWIND  IUNIT2 
WRITEI6 , 9110) 

9110  FORMAT! XOENTER  LETTER  TO  DESIGNATE  WHERE  PLOT  JOB  WILL  BE  ROUTED  T 
+OX/ 

+X  !D)BLDG  D8  , !F)BLDG  A3,  ! J)BLDG  120,  !K)BLDG  A6,  !N)BLDG  D5X/ 

+X  TYPE  !D,F,J,K  OR  N).X) 

GO  TO  100 

90  PRINTX, -PLEASE  TYPE  !D,F,J,  OR  K)i" 

100  READ!5, 9120 )RESP 
9120  FORMAT! Al) 

IF! RESP. EQ. 1HD. OR . RESP. EQ . 1HF)G0  TO  130 
IF! RESP . EQ. 1HJ . OR . RESP . EQ . 1HK)G0  TO  130 
GO  TO  90 
130  DES=RESP 

WRITE! I UNIT2, 9124) DES,PGMR 
9124  FORMAT! Al, A3, x, STMFZ, P3000,MS160000,ML40, T20 . x) 

CALL  JUNAME! NAME) 

CALL  JO! JORDER) 

CALL  JLOC! LOC) 

CALL  J EXT! EXT) 

CALL  JCCC!CCC) 

WRITE! IUNIT2, 9130 )NAME, BADGE, PGMR, JORDER, LOC, EXT, CCC 
9130  FORMAT !8HACC0UNT !,4X,A10,7X,A5,1X,1HI,A4,A6,1X,A8,5X,A5,1X,A4 


+  » 1H) ) 

WRITECIUNIT2,9140) 

9140  FORMAT CXCOMMENT.  HARDCOPY  JOB  CREATED  FROM  INTERACTIVE  LCAP2X) 
IFCDES.EQ.1HD)WRITECIUNIT2,9145)PGMR 
9145  FORMAT! XMFL INK, OUTPUT, PRINT, PGMR=x, A3, 

+X, JOBCHR=D,CLASS  =  A>  RJE=D8 ,MAIL  =  LCAP2PLT . x) 

WRITEC I UNIT2, 9150) 

9150  FORMAT! XATTACHCPL0TLIB,3FTNPL0TLIB)X/ 

+XLIBRARY(PLOTLIB)x/ 

+XFILE(PLTDATA,RT=S)X) 

WRITEC IUNIT2, 9160  WORD, BADGE 
9160  F0RMAT(XATTACH(PLTDATA,8X, A7,X,ID=X,A5,X,ST=PF6)X/ 

+XCOPY , PLTDATA , PLOT . X ) 

WRITEC6 , 9200 ) 

9200  FORMAT C XODO  YOU  WANT  HARDCOPY  PLOTS  PRODUCED  IN  D8  INSTEAD  OF  A3? 

+  (Y  OR  N ) : X  ) 

READC  5, 9120)RESP 
IFCRESP . NE . 1HY)G0  TO  140 
WRITEC I UNIT2, 9165) 

9165  FORMATCxHARDCPY, ST=IBMD8 . X) 

GO  TO  150 

140  WRITEC I UN IT2> 9170) 

9170  FORMATCXHARDCPY. X) 

150  WRITEC I UNIT2, 917 5) WORD, BADGE 
9175  FORMATCXRETURN, PLTDATA. X/ 

♦xPURGE,XXX,8x,A7,xlD=x,A5,x,ST=PF6.x) 

C  XXXXXXXXXXXXXXKKXXXXXXXXXXKKXXXXXXXXXXXXXKXXXXXXXXXXXXX 

500  CONTINUE 

CALL  DISC0NC5L INPUT) 

CALL  DISC0NC6L0UTPUT) 

END 

This  program  is  compiled  and  cataloged  as  permanent  file  8GENPR0C  with 
ID=9487  . 


